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A3S  TRACT 


The  critical  loadings  at  failure  of  a  unidirectional  fibrous  composite 
under  any  oblique  loading  are  the  most  important  results  obtained  in  this 
work.  For  this  purpose  the  von  Mises  energy  criterion  was  applied  to  the 
components  of  the  composite.  Dobonding  failures  at  the  interfaces  were 
also  considered. 

Other  results  of  this  research  include  composite  elastic  engineering  con¬ 
stants  in  any  angular  direction  as  a  function  of  fiber  density  and  com¬ 
ponent  properties. 

Diagrams  are  presented  which  exhibit  the  critical  loading  and  the  elastic 
coefficients  of  a  series  of  composites  as  a  function  of  the  loading  direc¬ 
tions,  component  material  constants,  and  geometry. 

The  fundamentals  to  this  work  are  based  on  the  micromechanical  stress 
fields  in  the  fibers  and  in  the  matrix. 
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INTRODUCTION 


In  ideal  cases  only,  the  loading  of  a  composite  material  is  in  the 
direction  of  the  reinforcements.  Normally,  oblique  loading  is  felt  by 
the  composite  of  which  a  structural  component  is  made.  Examples  are 
materials  consisting  of  laminates  in  which  each  laminate  has  a  definite 
fiber  orientation.  Other  examples  where  oblique  loading  is  involved 
are  the  different  kinds  of  mechanical  and  other  joints. 

Therefore,  the  problem  to  be  investigated  is  a  unidirectional  fiber 
reinforced  composite  under  generalized  oblique  loading. 

To  obtain  the  effect  of  an  oblique  loading  in  any  direction  to  the  fiber 
axis,  six  fundamental  loadings  have  to  be  combined.  Based  on  micro¬ 
mechanical  considerations  and  by  linear  superposition  (References  1  and 
2)  of  stresses  due  to  the  six  fundamental  loadings,  the  combined  micro¬ 
stresses  are  then  computed.  References  3,  4,  and  5  give  the  analyses 
of  the  following  six  fundamental  loading  cases:  axial  loading,  trans¬ 
verse  normal  (two  cases),  longitudinal  shear,  and  transverse  shear  (two 
cases)*.  Then,  having  the  combined  stresses  which  are  acting  on  each 
particle  of  the  reinforcement  and  the  matrix,  a  failure  criterion  can 
be  adopted.  Here  the  von  Mises  distortion  energy  theory  was  used  to 
calculate  the  critical  loading  in  each  element.  For  the  points  at  the 
interfaces  between  fibers  and  matrix,  debonding  failures  have  to  be 
evaluated  in  normal  as  well  as  tangential  directions  of  the  curved  sur¬ 
faces.  It  is  self-evident  that  only  the  smallest  critical  loading  of 
a  composite  has  to  be  determined  by  the  above  outlined  procedure. 

Which  of  the  particles  under  stress  will  be  first  subjected  to  failure 
depends  on  geometry  and  material  combinations  and  will  be  aut  matically 
considered.  Failure  may  occur  anywhere  at  the  interface,  in  the  fiber 
or  in  the  resin. 

The  elastic  engineering  constants  computed  for  each  fundamental  loading 
case  will  then  be  used  to  obtain,  through  trans to rma t ion  laws  for  fourth- 
order  tensors,  the  composite  elastic  constants  in  any  directi  -n  of  the 

composite . 


*  Later  it  will  be  explained  why  two  cases  are  necessary  in  tne 

transverse  direction. 
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TECHNICAL  DISCUSSION 


In  the  present  problem  the  internal  microstresses  produced  by  external 
oblique  loading  can  be  envisioned  as  linear  superimposed  stresses  pro¬ 
duced  by  six  independent  fundamental  loadings.  It  was  assumed  that  the 
fiber  packing  is  hexagonal  since  a  model  of  such  an  array  provides,  as 
explained  in  Reference  6,  better  agreement  with  experiments  than  any 
other  model.  Therefore,  the  oblique  loading  can  be  produced  by  the 
following  fundamental  loadings: 


Transverse  normal  loadings 


N 

x 


Axial  loading 


N 


z 


Longitudinal  shear  loadings  ^yz’^zx 


Transverse  shear  loading  T 

°  xy 

Figure  1  shows  these  fundamental  loadings  acting  on  the  surface  of  the 
representative  element. 


Figure  1.  Basic  Representative  Element  and  the 

Loadings  on  the  Surfaces  of  the  Element. 
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The  stress  tensor  is  assumed  to  be  symmetric,  T 


ij 


T..,  so  that  only 
Ji 


six  of  the  nine  loads  shown  in  Figure  1  have  to  be  considered.  Since 
external  loadings  are  usually  inclined  at  an  angle  with  the  fiber  axis, 
the  loadings  as  shown  are  the  outputs  of  external  loadings  actually 
applied  to  the  surface  of  the  composite.  For  this  purpose  the  trans¬ 
formation  law  for  rank  two  tensors  (References  7  and  8)  has  been  applied. 
At  this  state  of  manipulation,  the  transformation  law  is  valid. 


These  so-obtained  loadings  are  the  load  boundary  conditions  for  the 
combined  internal  microstresses  which  they  produce.  In  other  words, 
these  loadings  are  the  inputs  of  the  analysis  of  the  fundamental  cases 
for  which  the  microstresses  will  be  deduced. 


Hie  microstresses  are  then  added  linearly  in  each  particle  of  the  rein¬ 
forcement  and  matrix  and  introduced  into  the  von  Mises  criterion  so 
that  the  critical  load  in  the  constituents  due  to  combined  loading  of 
a  component  is  obtained. 

Instead  of  beginning  with  the  transformation  of  the  oblique  load  into 
fundamental  loads,  we  present  first  the  latter  ones.  The  finite  element 
method  itself  will  not  be  repeated  here  since  this  technique  was  already 
explained  in  detail  in  Reference  3. 

TRANSVERSE  NORMAL  LOADINGS,  N  AND  N 

x  y 

The  fundamental  load  case  N  was  solved  by  finite  element  methods  as 

x 

a  three-dimensional  as  well  as  a  two-dimensional  problem  in  Reference 
3.  It  was  found  that  accuracy  of  a  two-dimensional  analysis  is  suffi¬ 
cient  for  continuous  fiber  composites.  In  the  present  work,  additional 
two-dimensional  plane-strain  solutions  have  been  obtained  separately 

for  the  N  and  N  loadings, 
x  y  ° 

The  boundary  conditions  used  in  the  computation  program  are  for  trans¬ 
verse  normal  loading  Nx: 

1)  Displacements  in  x-direction  along  the  boundary 
planes  perpendicular  to  x-axis  are  1  and  -1 
respectively;  i.e.,  u  =  1  at  x  =  \  \fT  and  u  =  -1 
at  x  =  \  v/T. 

2)  Displacements  in  y- direct ion  along  the  boundary 
planes  perpendicular  to  y-axis  are  zeroes;  i.e., 
v  =  0  at  y  =  ±%. 

3)  Transverse  shear  stresses  are  zeroes  along  all 
boundaries . 
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For  t  r  ansve  rse  normal  loading  case  N  : 


I  ) 


Displacements  in  x-ilirection  along 
planes  perpendicular  to  x-axis  are 
u  =  0  a  t  x  =  •  ‘j  y/T. 


the  boundary 
zeroes  ;  i  .e . , 


2 )  Displacements  in  y-direction  along  the  boundary 
planes  perpendicular  t'  y-axis  are  1  and  -1 
respectively;  i.e.,  u  =  l  at  y  =  ^  and  v  =  -1  at 


J)  Transverse  shear  stresses  are  zeroes  along  all 
bounda r i es . 


In  order  to  convert  the  stresses  caused  by  the  above  bounda ry  conditions 
ir.t  the  stresses  cor  respond  i  ng  to  unity  loadings  in  each  case  (N  =N  =1), 

I  J  X  y 

the  normalized  (actors  I  1  r  A  and  Ji/ZT  A  were  used  in  fundamental 

i  xl  j  yj  yj 

cases  \  and  N  respectively.  The  conversions  tor  these  and  the  subsequent 

fundamental  cases  are  deemed  to  be  necessary  for  the  convenience  of  linear 
supe  i  p  >s  i  t  i  on  . 


The  resulting  stresses  produced  for  case  are  ^  j  >^21  ’^31  ’^41  ’^51  anc* 

^61  (  W°)  ’  Jnd  lir  CaSC  Ny’  S12  ’^22  ,SJ2  ,S42  ’^52  ’  and  S62 
(^“^52'°)  ** 


All  sires-  components  indicated  here  and  hereafter  arc  in  their  orders 
c  ires;'  in!  i  ng  t  t  i  na  I  micros  tresses  :  r  x'~  y y  z»’zs»  ancI  'Xy* 


AXIAL  LOADING,  N 
_ _ _ _ 2 


Ihe  problem  of  an  axially  loaded  composite  was  solved  in  Reference  4 
by  an  analytical  method  with  the  use  of  different  coordinate  axes  of 
reference.  Therefore,  in  this  analysis,  it  must  be  solved  numerically 
by  applying  the  same  type  of  finite  elements  used  in  the  previous  cases 
and  using  the  coordinate  axis  of  reference  as  shown  in  Figure  1. 

The  present  problem  consists  of  two  parts: (1)  a  two-dimensional  plane- 
strain  problem  which  is  the  same  as  the  previous  cases  except,  of 
course,  for  boundary  conditions;  and  (2)  a  two-dimensional  problem  which 
produces  a  unit  strain  in  the  direction  of  fiber  axis  and  is  slightly 
different  from  the  so-called  generalized-plane-strain  problem  in  that 
it  does  not  produce  stresses  in  x-  and  y-directions. 


The  equations  used  for  calculation  are  presented  as  follows  (most  of 
the  notations  are  the  same  as  those  used  in  Reference  3): 

The  displacements  at  the  nodes  are  expressed  as 

{u}  =  [A]{a}  (1) 

or 

{a}  =  [A]-1 {u}  (2) 

The  strain  components  are 

{£}  =  [D]{a]  (3) 


However,  the  strain  column  vector  is  a  combination  of  strain  components 
for  a  two-dimensional  plane-strain  solution  and  of  strain  components 
producing  unit  strain  in  fiber  axis  direction;  i.e., 


where 


and 


[e]  -  {£;  }  +  [e2] 


(4) 

(5) 


(6) 


The  stresses  produced  are  then 

{<?}  =  [ C ] { ]  =  [C ]  (f  e }  -  { e2 } ) 

or 

{a}  »  [C]([D][A]-1{u}  -  Ua}) 


(7) 

(8) 
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The  strain  energy  is 


W  *// /{e}T{a}t  dx  dy  de 

Since  fe]  {a}  represents  energy  density  per  unit  strain,  integration 
over  strain  £  must  be  carried  out  so  that  the  strain  energy  is 

W  =  ^//({u}T([A]-1)T[D]T[C][D][A]-1{u} 


-2{u]T([A]_1 ) [D]T[C ]{ca } ) t  dxdy 

(9) 

Then  the 

force  components  at  nodal  points  are 

{Pi  }  -  [K]{u]  -  {P2} 

(10) 

or 

(Pi  3  +  (Pa}  -  [K]{u] 

(ID 

where 

IK]  =  ([A]-1  )  [D]1[C]  [D]  [A]-1V 

(12) 

and 

{pa}  -  Cu)  ([A]-1  )[D]  [c]{e3}v 

(13) 

The  rest  of  the  equations  will  be  as  in  Reference  5  and  will  not  be  re¬ 
peated  here. 


The  boundary  conditions  used  in  the  computation  program  were: 


1)  All  displacement  components  are  zeroes  along  the 
boundaries  ;  i.e.,  u  =  0  at  x  »  ±%  \/T  and  v  *  0  at 
y  - 


2)  Transverse  shear  stresses  along  the  boundaries 
are  zeroes. 


K  _ 

The  normalized  factor  used  in  the  present  case  was  \A37(H  a  .A  ,  ). 

k  Z  ,K  Z ,K 


The 

0). 


resulting  stresses  produced  are 


S13’S23,S33,S43,S53’ 


and  S63(S43-S53- 


LONGITUDINAL  SHEAR  LOADINGS,  T  and  T 
_ _ _ *  yz _ zx 

The  boundary  value  problem  of  a  longitudinally  shear-loaded  composite  is 
quite  different  from  the  previous  cases  and  the  subsequent  case,  although 
they  are  all  two-dimensional.  For  the  latter  cases  the  governing  differ¬ 
ential  equation  for  stress  function  is  biharmonic, while  for  the  former 
it  is  harmonic  (as  a  torsional  problem). 
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the  displacement  components  st  the  nodsl  points  ere  expressed  ss 

(w)  -  [ A J { a ) 


(14) 


In  matrix  form,  the  displacements  in  the  z-direction  are 


*1 

•i  0  o  ■ 

ai- 

ws 

1  ?s  \ 

aa 

.1  V 

.«a. 

where 


[A] 


-1. 


{a}  -  lApfw} 

?«Vga\  0  0 

llklDa  i  ilia 

A  A  A 

■¥  *J 


and  A  -  SaHs'&illa 

The  strain  components  are 

fY}  -  (D]f a }  -  (D)(Aj'l{w} 


or 


Y 

Tyz 

■ 

Y 

Tzx 

0  0  1 
0  1  0 


aa 

*3 


and  the  stress  components  are 


or 


M  -  [  c )  { Y  } 

H  -  [C] [D]  (A)”1 {w} 


Therefore,  the  strain  energy  is  given  by 

w  ■  %  //Cv  }T{'r  }dxdy 

-  ^//{w}T((A]-l)T[D]T(C][Dj[A]-1{w}dxdy 
By  Costigl  iano 's  second  principle,  we  have 

{P}  -  (Kj{w) 

[v]  -  ((a]'1)t[d)t[c][d](a)-1q 


where 


(15) 

(16) 

(17) 

(18) 

(19) 

(20) 

(21) 

(22) 

(23) 

(24) 

(25) 
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The  rest  ot  the  equations  will  be  similar  to  those  in  Reference  3  and 

will  not  be  repeated  here. 

In  the  computat  ion  program,  the  boundary  conditions  used  are: 

Fundamental  Longitudinal  Shear  Loading  Case  T  : 

yz 

)  Longitudinal  displacement  of  the  boundary  plane 
perpendicular  to  the  y-axis  in  the  positive 
direction  is  unity;  i.e.,  w  =  1  at  y  =  ^ . 

2)  Longitudinal  displacement  of  the  boundary  plane 
perpendicular  to  the  y-axis  in  the  negative 
direction  is  negative  unity;  i.e.,  w  =  -1  at  y  * 

Fundamental  Longitudinal  Shear  Loading  Case  T„ x : 


1)  Longitudinal  displacement  of  the  boundary  plane 
perpendicular  to  the  x-axis  in  the  positive 
direction  is  unity;  i.e.,  w  =  1  at  x  =  \  \[T. 

2)  Longitudinal  displacement  of  the  boundary  plane 
perpendicular  to  the  x-axis  in  the  negative 
direction  is  negative  unity;  i.e.,  w  =  -1  at  x  *  -  2 vAT. 


The  normalized  converting 
J  _ 

were /3/(Z  T  .A  .)  and 

j  yz.j  y.j 


factors  used  in  fundamental  cases  T  and  T 

yz  zx 

I 

1/(E  t  .A  . )  respectively. 

.  ZX ) 1  X ) X 


The  stresses  produced  for 


<S14*524=S34=S64'0)’  and 


case  T  are 
yz 

for  case  T 

zx 


S14’S24’S34,S44,S54’  and  S64 
®15,®25,®35,^45,®55’  and  ^65 


TRANSVERSE  SHEAR  LOADING,  T 

_ _ _  xy 

The  problem  of  a  unidirectional  f ibe r- re  in  forced  composite  subjected  to 

transverse  shear  loading  is  the  same  as  fundamental  cases  1  and  2,  except 

the  boundary  conditions.  It  was  found  that  the  boundary  conditions  in 

the  present  case  (see  Appendix  I)  are  complementary  to  those  of 

fundamental  transverse  loading  case  N  . 

0  x 


In  addition  to  the  study  made  in  Appendix  I  on  the  boundary  conditions, 
an  analytical  study  (see  Appendix  II)  as  well  as  a  numerical  analysis 
(see  Appendix  III)  by  finite-element  method  on  the  symmetry  relations 
in  perforated  plates  has  been  performed.  The  analytical  study  and  the 
numerical  analysis  justify  the  conclusions  made  in  Appendix  I. 
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The  boundary  conditions  used  in  the  computation  program  arc: 

1)  Displacements  in  the  y-direction  along  the  boundary 
planes  perpendicular  to  the  x-axis  are  1  and  -1 
respectively;  i.e.,  V  =  1  at  x  =  \  y/J  and  v  *  -1 

at  x  = 

2)  Displacements  in  the  x-direction  along  the  boundary 
planes  perpendicular  to  the  y-axis  are  zeroes;  i.e.. 
u  =  0  at  y  =  ±%. 

3)  Normal  stresses  along  the  boundary  planes  are  zeroes. 

The  normalized  factor  for  converting  the  loading  condition  f  the  above 

1 

boundary  conditions,  into  the  unity  loading  condition  was  1/(Z  ~  A  ,). 


The  resulting  stresses  in  this  case  are  >s26 ,S36 ,S46 ’ S56 ’  dnd  S66 

<  W0)  • 

PARAMETRIC  STUDIES  AND  FINAL  STRESSES  IN  A  COMPOSITE  DUE  TO  A  GENERALIZED 
PUNE  OBLIQUE  LOADING 

I 

Hie  coordinate  system  of  oblique  loading,  which  in  most  cases  may  be 
parallel  to  the  surface  of  a  unidirectional  composite,  will  be  called  the 
loading  or  structural  geometry  system.  The  system  with  one  coordinate 
axis  parallel  to  the  fiber  axis  will  be  called  the  material  property 
system.  In  the  previous  studies  of  fundamental  loading  cases,  che 
material  property  system  was  adopted  for  simplicity  in  description  oi 
the  boundary  conditions.  Both  systems  are  inclined  by  angle  ~  with  their 
coordinate  axis  (Figure  2);  therefore,  the  loadings  applied  on  such 
a  composite  must  be  transformed  into  the  loading  corresponding  to  the 
material  property  system  before  the  linear  superposition  of  any  desired 
quantitites  can  take  place.  Based  on  the  equilibrium  conditi.  ns  of  load¬ 
ing  and  the  transformation  law  for  rank  two  tensors,  the  three-dimensional 
equations  of  transformation  have  the  following  form: 


=  i  >:  ..o' 
1J  ik  kt 


(26) 


where  are  applied  loads  in  psi,  and  are  the  transformed  loadings 

in  psi.  Further,  and  l  ^  ,  the  direction  cosines  between  the  new 

coordinate  axis  x  y  z  (material  property  axis)  (see  Figure  2)  and  the 
original  coordinate  axis  x'y'z'  (loading  coordinate  axis),  are  defined 
in  the  following  table. 
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X* 

1 

y 

Z  ’ 

X 

*■1 1 

lia 

^13 

y 

-ai 

*a. 

(<83 

z 

<3; 

<•3* 

^33 

Equal  i .mi  (20)  becomes  after  summing  over  k  and  i 

N  ■  Nj  i 

x 

Nil*  *n*'iiau  +  ^ii^ia3i3+  ^ia^n°ai+  ^ia^ia°aa+  ^a^X3CTa3+ 

^i3*-xa°3a  +  ^3^13^33 

T  -  ^g 

xy  *  ■ 

Nia*  ^\i^ai°ii*  ^ii^aa°ia+  ^ii^aaai3+  ^ia^aiCTai+  ^ia^aa°aa+  ^ia^a3aa3+ 

t13<-flcj31+  ^i3^aa°3a+  ^1 3^33033 


T  - 

xz 

N  • 

13 


N|J 

^11^31^11+  *'Xi*'3aaia+  ^11^330x3+  ^ia^3i®ai+  ^ia^3aaaa+  ^ia^33ffa3+ 
^13^31031+  ^13^3*03*+  il3^Jjff3S 


(27) 


Vs*' 

N  ■  (■ax^ai{Jn+  ^ax^«a0x  a+  ('ai^a3°x3+  ^aa^axaai+  ^aa^aa^aa+  '^8b^'83ct83+ 

aa 

^|3^81®3l  *■  ^a3^aaa3|+  ^|X^|]731 


Tyz" 

Na3"  ^ax ^3x^x1+  ^ai^3acia+  ^ax ^33^x3  +  ('a«^3i^ai+  ^a8^3a°aa+  ^88^33^83+ 

t|3^3;?31+  ^M^a®3}+  ^83^33^33 


NZ"  ^13 

^J3"  ^31^3lCJll+  ^3  1  ^3  a^l  Z+  ^31^330x3+  ^Sa^Sl  ^81+  ^'38'^38C7a3+  ^3  3^33^83+ 
^"3 3 ^31  ^3l  +  ^33^3  2^33+  ^33^33°33 
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In  the  present  analysis,  only  a  plane  oblique  loading  p  is  applied  on 
the  surface  of  the  composite.  Therefore,  the  transformation  is  two- 
dimensional  and  is  simplified  as  (see  Figure  2): 


(28) 

(29) 

(30) 

(31) 


N  ■  p  sin2 8 
x 

N  ■  p  cos2 0 
z 

Tzx  -  h  p  sin (20) 

N  -  T  -  T  -  0 
y  yz  xy 


Figure  2.  Loading  (Geometry)  Coordinate  Axis  and 
Material  Property  Coordinate  Axes. 
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However,  in  the  fundamental  cases  the  inputs  (loadings)  used  were  N  , 

X 

N  ,N  ,T  ,T  ,  and  T  respectively.  These  loadings  are  not 
y  z  yz  zx  xy  J  ° 

completely  the  same  as  those  of  the  left-hand  side  of  equations  (27). 

From  the  observation  of  the  boundary  conditions  of  fundamental  cases 

N  N  N  ,  it  can  be  found  that  the  internal  applied  loading  (macrostress) 
.>  y  z 

on  the  characteristic  element  in  each  case  is  not  one  simple  loading 
but  a  combination  of  three  normal  loadings  (although  the  other  two  are 
comparatively  small).  In  order  to  convert  the  stress  components 
generated  in  these  cases  into  those  really  produced  by  N^,N  ,  and  N^, 

the  following  manipulation  must  be  taken  to  obtain  the  revised  cases. 

For  revised  case  the  simultaneous  equations  used  to  determine  the 

constants  in  order  to  calculate  stress  S, .  ,Sni  ,S01  ,S, ,  ,SC1  ,  and  S, . 

,  t  i  ..  „  11  21’  31  41  51  61 

due  to  loading  N  are: 


1  =  AaE 

i  = 


ii 

o  =  axe 

j  = 


(Sll)iAx,i  +  M 


n 


=  i 


>  A,  .  +  Ar 


j  y  .3 


168 


J  = 

168 


=  1 


(Sia)iAx>i 

+  AgE 

<5'Y*,i 

(32) 

i  * 

1 

n 

(5sYy.J 

+  A3^ 

j  * 

(33) 

(§3  g  )  ^A^  ^ 

163 

+  AgE 
k  * 

Vz.k 

(34) 

0  =  Aj^E  (§31  ),A  +  AaE 

k  =  1  k  a,K  k  -  1 

Solving  equations  (32)  to  (34),  we  get  constants  A^.A^,  and  A^. 


Then  we  can  calculate  the  stresses  produced  in  the  revised  fundamental 


case  N  as  follows: 
x 

%1  =  Aj  ^11  +  Ag  g  +  Ag  S13  (35) 

s2l  =  A^  Sai  +  Ag  Sgg  +  Ag  SS3  (36) 

§31  =  ^1  §31  +  Ag  832  +  Afl  §33  (37) 

Ssi  =  ^  +  Ag  Sgg  +  Ag  Sgg  (38) 

and  Sti  =  Sc,i  =  0.  (39) 
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For  revised  fundament.!  case  N^,  we  have  the  simultaneous  equations 


0=  [(Sn).A  .1  +  BgE  t  ( Si  a )  .A  ]  +  [  ( %  3  )  A  (AO) 

i  -  1  1  X>1  i  =  i  1  X>1  i  =  1  1  X>1 

n6"«  B^1  [(S81)  a  ]  +  BSE  [  (Sja  )  .A  ]  +  I 

j  -  1  J  y,J  j  =  1  J  y,J  j  =  1 

168  _  158  158  _ 

0*BlE  [(S3!  ),A  ]  +  BgE  [(%8)  A  ]  +  %E  t  ( S33  )  1 A  k 

k  -  1  ’  k  -  1  Z>  k  -  1 

Solving  for  ,Bg  ,  and  Bs  ,  we  can  find  qg.Sgg.Ssg,  and  Se2  as  follows 


[(§13). A  . 

(AO) 

1  X  ,  1 

[  (q3 )  .A  . 

]  y.j 

(Al) 

t(^3)kAz,k 

(A2) 

Sis  *  Si  S11  +  Bg  Sis  +  B;  Si; 


2  2 


§1  S81  +  Bg  Sgg  +  B3  S, 
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and 


%l  +  BgS3g+B3  §33 

§s a  *  %  §81  +  Ba  §s  2  +  §3  5^3 

S42  “  S52  *  0 


168 


166 


r~  *  -w  _  a  uc  _  lb6  — 

Vj  *  Ci  E  f  ( S3  ^  ,  A  ]  +  C2Z  f(S32),A  ]  +  C3t  [  ( S33  )  i.A  ]  (50) 


k  -  1 


k  z ,  k 


k  -  1 


k  2 ,k 


k  =  1 


z  ,k 


(A3) 

(AA) 

(A5) 

(A6) 

(A7) 


For  revised  fundamental  case  N  ,  the  simultaneous  equations  are: 

z 

6  6  6 

0  -  qE  [(%!  ),A  ]  +  qE  [(S!2).A  ,]  +  C3E  [  ( §1 3  )  j  A  ]  (A8) 

i  -  1  1  X,:L  i  =  1  1  X>1  i  =  1  1  X>1 

0  -  qE  [(Sai  )  A  ]  +  CgE  [(Sgg)  A  ]  +  q“  [(Ss3).A  .)  (A9) 

j  -  1  J  y,J  j  -  1  J  y,J  j  =  1  J  y,J 


After  solving  for  q  ,Cg  ,  and  C3  ,  we  can  get  the  stress  components  in  the 

revised  case  N  as  follows: 
z 


Sl3 

S83 

§33 

§83 


q  Sii+CgSxg  +  q  qa  (51) 

q  Sg!  +  q  sS2  +  q,  Sg3  ( 52 ) 

q§31+CgS3g  +  C3§33  (53) 

q  §bi  +  Ss2  +  q  Sg3  (5A) 
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ana  843  ■  853  ■  0  (55) 

The  stresses  produced  in  the  composite  due  to  shears  T  ,T  and  T 

y z  zx  xy 

will  be  the  same  as  those  generated  in  the  corresponding  fundamental 
cases.  Therefore,  no  revision  for  the  shear  cases  is  necessary.  For 
easy  identification,  these  stresses  are  reassigned  as  follows: 

Si 4  .Sa4  .S34  1 S44  * S54  and  S>4  due  to  shear  T  , 

Sis  .S2s  .Ssb  »S*s  ,Sbb  and  S(5  due  to  shear 

and  Sifl  ,Sa<  ,Sq*  ,84*  ,%*  and  due  to  shear  T  . 


(Si 4  *  S24  *  S34  “  Sg4  ■  Si B  •  S35  ■  S35  ■  S95  =  S46  *  Sga  «  0) 

After  obtaining  the  stresses  'n  the  revised  fundamental  cases,  we  then 
can  get  the  final  stresses  by  the  use  of  the  principle  of  linear  super¬ 
position,  3"  follows: 


{a}  =  [  S  ]  { N } 

Written  out  in  detail,  one  gets 


Sia 

Si  3 

0 

0 

Sie 

Saa 

Saa 

0 

0 

Sas 

%a 

833 

0 

0 

Sss 

0 

0 

S44 

Sss 

0 

0 

0 

Sb4  Sss  0 

Ssa 

S«3 

0 

0 

Sss 

FAILURE  CRITERIA  OF  THE  COMPOSITE 


(56) 


(57) 


In  the  present  analysis,  the  failure  (yield)  criteria  were  determined 
by  examining  the  constituents  themselves  as  well  as  their  interfaces 

Failure  in  the  Constituents 


The  von  Mises  Theory  of  Distortion  Energy  was  adopted  as  the  failure 

criterion  of  the  composite  constituents.  This  theory  states  that  the 

load  condition  (p  )  is  critical  when  the  distortional  energy  due  to 
rcr  c 
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this  load  condition  is  equal  to  the  diatortional  energy  at  failure  under 
simple  tension  or  compression.  In  mathematical  form: 


(p  )  occurs  when  v 

Ud(pcr) 


1 


or 


1 


yfl  a  £,[  (a*  -  ayf  +  (oy  -  czT  +  (c  2  -  zj 


+ 


T 

IX 


)) 


(59) 


where  a ^  is  the  yield  strength  of  the  material  due  to  a  simple  tension 

or  compression  test  and  is  equal  to  a ^  when  cx*°y*a7  *  0  or  o fc 

when  ct  +  a  +  a  <0. 
x  y  z 

After  obtaining  the  microstressea  of  each  triangular  prism  in  both  con* 
stituents  from  the  previous  section,  we  can  then  find  the  critical  load¬ 
ings  for  all  finite  elements  by  the  above  equation.  The  smallest  one 
will  be  the  critical  loading  of  the  composite  as  far  as  the  composite 
materials  are  concerned.  However,  failure  may  occur  at  the  interface. 


Failures  at  the  Interface 

Debonding  failure  at  the  interface  between  fiber  and  matrix  is  actually 
a  very  difficult  '\nicro- micro"  problem.  Many  investigators  have  attacked 
it  on  different  micro-levels.  Based  on  our  survey  of  the  literature,  we 
found  that  none  of  them  have  solved  it  successfully  in  reality.  Here, 
in  our  study,  we  have  used  two  criteria  to  determine  the  bonding  failure 
conditions.  They  are  normal  bonding  strength  and  Interfacial  shear  bond¬ 
ing  strength  between  two  materials. 


The  stress  vector  associated  with  the  direction  normal  d  at  the  Interface 
is 


or 


lTdJ  -  (T)(d) 


“0  T  T  ”| 

x  xy  xz 

■?osC“ 

‘V  ■ 

TOT 
x>  y  yz 

s  ln4 

T  T  O 

0 

L  xz  yz  z  _ 

—  _ 

(60) 


(61) 
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where  ?  is  the  angle  between  direction  normal  at  the  interface  and  x-axis 
of  the  basic  representative  element. 

There  fore, the  normal  stress  of  the  finite  elements  at  the  interface  is 

=  a  cos2?  +  a  sin2?  +  2t  sin?  cos?  (62) 

x  y  xy 

and  the  tangential  stress  of  finite  elements  at  the  interface  is  then 


T.  =i[^(CT  -  c  )sin2?  -  T  cos2?]3 

t  \  x  y  xy 

+  (t  cos?  +  T  sin? 
xz  yz 

One  can  then  define  each  critical  load  condition  (p  ).  and  (p  ).  as 

cr  in  cr  is 

that  for  which  a  developed  stress  is  equal  to  a  critical  stress:  i.e., 


lo  \ 

a p  pi  | 

when 

°nf 

1 

Q 

P 

(Per) 

.  L.U  lo 

in 

[CTn(Pcr)]av 

(a  ) 
n  av 

occurs 

is 

when 

T 

tf 

_  Ttf 

(pcr) 

[Tt(Pcr>lav 

<Vav 

and  ( 

r  )  a  re 

t  av 

average  values  of 

a  and  t 
n 

=  1 


(64) 


(65) 


Here  (cj  ) 
n 

triangular  prisms  at  the  interface  respectively. 


From  equations  (59),  (64),  and  (65),  we  can  calculate  different  critical 
loads  based  on  the  criteria  of  the  constituents  strength  and  the  normal 
and  tangential  bonding  strength  of  the  interface.  These  values  will  be 
automatically  compared  with  other  stresses  in  the  material.  The  smallest 
of  these  values  will  be  the  critical  loading  of  the  composite  as  a  whole, 
if  there  is  no  smaller  value  present  elsewhere  in  the  material. 


ELASTIC  CONSTANTS  E,  G,  v,  and  T)  OF  A  UNIDIRECTIONAL  COMPOSITE  IN  THE 
DIRECTION  OF  THE  LOADING 


For  each  fundamental  loading  case,  N  ,N  ,N  ,N  ,N  ,N  ,  the  correspond- 

°  x  y  z  xy  xz  yz 

ing  engineering  elastic  constants  and  Poisson's  ratios  v  have  been 
computed  from  the  numerical  solutions.  As  mentioned  before,  the  loads 
acting  on  structures  are  seldom  in  the  direction  of  the  fibers,  and  they 
are  not  aligned  in  the  direction  of  a  Cartesian  coordinate  system  as 
the  fundamental  loading  cases  are.  Therefore,  the  elastic  constants 
have  to  be  calculated  in  the  direction  of  the  load  of  interest.  They 
can  be  found  by  the  following  formulas'  derived  through  the  use  of  the 
trans format  ion  law  for  fourth-order  tensors. 
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Modulus  of  elasticity  of  a  composite  in  direction  6; 


Ee= 


in4  M 

/l 

V 

■->  \  i 

-1 

z  r 

e"”  +  i-  ^ 

1g 

E 

—  Im  n 

L  z  r 

\  zr 

z 

r  / 

Shear  modulus  of  a  composite  in  direction  9 


V 


Poisson's  ratio  connected  with  direction  £: 


1 

_  ,  ,2  2 

/l+v 

zr  , 

1+v 

rz 

1  \ 

'1 

“  +  4m  n 

1  zr 

\E 
\  z 

E 

r 

Gzr  / 

V  -E. 

0  0 


v 

r—  -  nf  n!  . 

E  \  E 

z  \  z 


1+v  1+v  1 

,2 1 _ IL  ,  _ tL _ 


zr 


Shear  coupling  factor  connected  with  direction  &: 


T)  =  E  mn 
0  0 


r2m* 

2ns 

/  V  V 

1  ^ 

' 

N 

I  w 

-  - —  +  (m3  -ns  ) 
r 

/  zr  rz 

1  E  +  E 
'  z  r 

_ 

(66) 


(67) 


(68) 


(69) 
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NUMERICAL  RESULTS 


Once  the  details  of  the  stress -strain  fields  are  known  for  the  fundamental 
loading  cases,  the  final  stresses  due  to  oblique  loading  can  be  computed 
by  using  equation  (57).  In  this  phase,  the  obtained  stresses  have  been 
numerically  introduced  into  the  von  Mises  criterion  equations [(59) ,  (64), 
and  (65)]  for  the  finite  elements  shown  in  Figure  3. 


Figure  3.  The  Finite  Elements  for  Which  the  Stresses  Were 
Computed  and  the  von  Mises  Failure  Criterion  Was 
Applied. 
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In  this  manner,  the  smallest  critical  load  Pcr»  which  is  the  critical 

load  of  the  composite,  is  obtained  (Figure  4  through  Figure  8).  Equations 
(66)  to  (69)  have  been  used  to  calculate  Lhe  elastic  constants  (Figures  9 
through  18),  Poisson's  ratio  (Figure  19  through  Figure  24),  and  shear 
coupling  factors  (Figures  25  and  26). 

The  different  combinations  of  computer  inputs  that  were  used  in  the  funda¬ 
mental  loading  cases  are  for  =  0*2  and  *  0*5714  (see  table  below). 


COMBINATIONS  OF  COMPONENTS,  MATERIAL  CONSTANTS,  AND  VOLUME 
PERCENTAGES  FOR  WHICH  THE  COMPOSITE  MATERIAL  CONSTANTS 
AND  CRITICAL  LOAD  HAVE  BEEN  COMPUTED 


Vf 

E,/E 
f  m 

Ef*10-6 

Vf 

Ec/E 
f  m 

Ef*10~6 

1 

0 

1 

0*38 

KB 

30 

11*40 

2 

0*5 

2 

0*76 

ES9 

60 

22*80 

3 

0-5 

4 

1*52  ! 

24 

0*5 

90 

34*20 

4 

0*5 

6 

2*28 

25 

0*5 

120 

45*60 

5 

0*5 

10 

3-80 

26 

0*5 

160 

60*80 

6 

0-5 

20 

7*60 

27 

0*6 

30 

11*40 

7 

0*6 

2 

0*76 

28 

0*6 

60 

22*80 

8 

0*6 

4 

1*52 

29 

0*6 

90 

34*20 

9 

0*6 

6 

2*28 

30 

0-6 

120 

45*60 

10 

0*6 

10 

3*80 

31 

0*6 

160 

60*80 

11 

0*6 

20 

7*60 

32 

0-7 

30 

11.40 

12 

0-7 

2 

0*76 

33 

0*7 

60 

22*80 

13 

0*7 

4 

1*52 

34 

0-7 

90 

34*20 

14 

0*7 

6 

2*28 

35 

0-7 

120 

45*60 

15 

0*7 

10 

3*80 

36 

0*7 

160 

60*80 

16 

0*7 

20 

7*60 

37 

0*8 

30 

11*40 

17 

0*8 

2 

0*76 

38 

0*8 

60 

22*80 

18 

0*8 

4 

1*52 

39 

0*8 

90 

34*20 

19 

0*8 

6 

2*28 

40 

0*8 

123 

45*60 

20 

0*8 

10 

3*80 

41 

0*8 

160 

60*80 

21 

0*8 

20 

7*60 
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In  Figure  4  the  composite  critical  strength  pc)_  is  given  as  a  function  of 

fiber  yield  strength  a,,  matrix  strength  a  ,  component  moduli  E,  and  E  , 

t  m  t  m 

and  the  angle  0  between  fiber  axis  and  external  load.  A  composite  with  50 

percent  fiber  volume  and  Poisson's  ratios  v  ,  =  0.2,  v  =  .35  is  assumed. 

t  m 

The  results  shown  are  valid  for  both  tension  and  compression,  provided  the 
correct  ratio  ct,/c  is  used  (in  some  materials,  this  ratio  mav  be  different 

in  tension  and  compression).  Consider,  for  example,  a  case  where  o^/j^  = 

25  in  tension  and  o ./a  =  12.5  in  compression.  Assume  a  load  acting  at  an 

angle  $  =  50  to  the  fiber  axis.  The  tensile  strength  in  this  case  is  p  = 

0.04  a  ..  The  compressive  strength,  on  the  other  hand,  would  be  p^.  =  0.08 

af. 


The  dotted  curves  in  Figure  4  indicate  that  for  this  part  the  critical 

strength  has  not  been  computed;  values  are  plotted  only  for  composites 

where  E  ,/E  >  cr,/a  . 

t  m  t  m 


In  Figure  5  the  composite  critical  strength  cy ^  is  presented,  like  in 
Figure  4,  as  function  of  the  components  properties  a^.c^.E^jE^,  and  0  for 

60  percent  of  fiber  content  by  volume.  Strength  values  are  plotted  for 

E ,/E  >  cj  ,/ct  and  for  E../E  <  ct./ct  .  At  the  angle  0  =  0  or  close  to  zero, 

fmtm  fmfm  ° 

the  strength  curves  for  E,/E  £  90  separate  from  the  strength  curves  for 

t  m 

values  E,/E  2  90.  This  fact  is  indicated  by  an  arrow  for  E,/E  =  30  and 
t  m  f  m 

E,/E  =  90. 
f  m 

Figure  6  shows  the  strength  of  a  composite,  like  in  Figures  4  and  5,  but 
for  70  percent  of  fiber  content  by  volume.  The  enlarged  section  at  the 
top  of  the  figure  represents  the  curves  on  an  extended  scale  from  -  =  0‘ 
to  0  =  10°. 
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/r  =  3 
m 


o  ,/r 7  =6  "25 
f  m 


tT,/a  =12 ‘5 

i  m 


-  /a  =25 
f  m 


f 


h  =50 
m 


~  Jz  =100 
I  m 


Figure  4.  Critical  Load  (p  )  of  a  Composite  (V  =0.5)  as  a  Function  of 

cr  i 

Loading  Angle  (n),  Fiber  and  Matrix  Yield  Strength, and 

Moduli  of  Elasticity  (q ,  nc,  n  ,  and  E  ,  E  ), 

I'm  I  m 
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o  to  20  jo  so  60  :<  &  *o 

•  rv*rcc » 


Figure  8.  Critical  Loading  of  a  Conp't»su-  In^ui  »»bli  uc  Loading. 
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$  N 


Figure  12.  Major  Composite  -  Young's  Modulus 

vs.  Fiber  Or  ier.Lat  ion  (E,/E  »  120). 

1  m 

27 

t 


31 


Figure  19.  Major  Composite  -  Poisson's  Ratio  vs.  Fiber  Orientation  (V 


enta  t ion 


0.7 


33 


ta,tion 


Figure  22.  Msjor  Composite  -  Poisson's  Ratio  vs.  Fiber  Orientation  (V 


Figure  23.  Major  Composite  -  Poisson's  Ratio  vs.  Fiber  Orientation  for 


grees 
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car  Coupling  Factor  vs.  Fiber  Orientation 
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$  -  Degrees 

Composite  Shear  Coupling  Factor  vs.  Fiber  Orientation  (Ef/Em=  30). 


CONCLUSIONS  AND  RECOMMENDATIONS 


From  the  data  presented  herein  and  from  comparisons  with  tests  and  analy¬ 
ses  performed  by  other  investigators  (References  10,  11,  and  12).  it  can 
be  concluded  that  this  kind  of  analysis  results  in  valid  solutions  for 
the  strength  criterion  of  a  composite.  The  authors  of  the  cited  papers 
critically  compared  their  results  with  test  data  stemming  from  a  variety 
of  sources.  Furthermore,  results  obtained  by  Tsai  (References  13  and  14) 
also  contribute  to  the  confidence  of  the  values  published  in  this  report. 
The  comparison  could  be  made  only  for  axial  and  transverse  loading  because 
the  analysis  and  the  tests  published  in  the  literature  are  concerned  only 
with  these  two  loading  conditions  while  the  present  work  contains  all 
possible  analysis  of  loadings. 

Ihe  combined  stresses  in  each  particle  of  the  reinforcement  and  the  matrix 
introduced  into  a  strength  criterion  give  a  real  picture  of  the  strength 
of  a  composite.  As  can  be  seen  from  the  curves,  a  composite  loses  much 
of  its  strength  when  the  loading  is  not  in  the  direction  of  the  reinforce¬ 
ment.  When  loading  in  the  fiber  direction  is  present,  then  the  failure 

Ef  CTfer 

occurs  in  the  fiber  as  long  as  7^  >  — —  ;  otherwise,  failure  occurs  in  the 

m  mer 

matrix.  In  cases  where  the  loading  is  inclined  to  the  fiber  direction, 
even  at  very  small  angles,  failure  occurs  in  the  resin,  at  the  interface, 
and  at  those  points  where  the  surfaces  of  two  adjacent  fibers  are  closest 
together.  Ihe  strength  of  a  composite  obtained  with  this  analysis  is  on 
the  conservative  side.  In  reality,  a  composite  loaded  in  the  transverse 
direction,  for  instance,  fails  initially  in  the  resin  but  is  then  capable 
of  taking  twice  the  load  of  initial  failure  before  catastrophic  structural 
failure  occurs.  Ihe  reason  for  this  is  that  the  matrix  of  most  materials 
becomes  nonlinear,  and  instead  of  failing,  it  smooths  out  the  stress  peaks. 

An  analysis  which  takes  into  account  a  nonlinear  stress/strain  relation 
would  be  the  natural  continuation  of  this  work.  It  would  reveal  higher 
strength  of  a  composite  in  the  transverse  direction.  A  realistic  non¬ 
linear  analysis  of  a  composite  can  be  based  only  on  micromechanics  where 
the  stress  distribution  in  the  components  and  the  dislocations  of  the 
fibers  due  to  loads  are  obtainable  in  detail.  The  present  analysis 
possesses  the  above-mentioned  capabilities. 
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APPENDIX  I 


BOUNDARY  CONDITIONS  FOR  THE  TWO-DIMENSIONAL 
TRANSVERSE  SHEAR  PROBLEM 


ANALYTICAL  PART 

To  find  the  stress  distribution  within  a  typical  micromechanical  element 
of  a  fiber-matrix  configuration,  proper  conditions  at  its  boundaries  must 
be  established  first.  The  objective  of  this  part  of  the  analysis  is  to 
derive  the  boundary  conditions  from  the  geometry  aspects  inherent  to  the 
load  configuration.  In  order  to  define  the  problem  we  refer  to  Figure  27, 
showing  the  assembly  of  micromechanical  elements  as  they  would  appear 
within  a  fiber-matrix  material  far  away  from  its  edges  and  loads.  Under 
this  assumption  we  can  consider  that  the  stress-strain  distribution  around 
each  fiber  center  must  be  identical  for  any  arbitrarily  chosen  fiber 
center.  The  external  loads  causing  the  so-called  "transverse  shear  de¬ 
formation"  are  applied  force  couples,  one  acting  in  the  i  x-direction  and 
the  other  in  the  +  y-direction.  In  Figure  27  the  forces  are  denoted  by 
P4  ,  -  Px  and  P3  ,  -  Pa ,  which  we  parallel  to  the  x-  and  y-axes,  respectively. 
In  general,  magnitudes  of  the  force  couples  are  independent  of  each  other, 
but  are  usually  the  results  of  some  equilibrium  conditions. 

In  order  to  find  the  boundary  conditions  for  the  rectangle  ABCD,  we  must 

also  consider  the  two  adjacent  rectangles  A'DCB1  and  CBA"D"  and  investigate 

how  the  displacement  vectors  in  these  rectangles  can  be  related  to  each 

other.  For  this  purpose,  we  introduce  three  local  Cartesian  coordinate 

systems  with  their  origins  at  the  rectangle  centroids  M  ,  M'  and  M"  .  The 

O  O  o 

above-defined  coordinate  systems  are  the  x,  y  -  system,  the  x'y'  ”  system, 
and  the  x",  y"  -  system.  The  two  latter  coordinate  axes  are  generated 
from  the  former  by  translation;  i.e., 


x'  -  x  (70) 

y'  -  y  -  b 


x"  =  x  -  2c 

y"  -  y 


(71) 


Let  us  now  consider  a  point  P  within  the  boundaries  of  rectangle  ABCD 
which  has  coordinates  (x,  y)  with  respect  to  the  non-primed  coordinate 
system.  We  denote  the  displacement  vector  at  P  by  u(x,y),  which  can  be 
expressed  by  its  components  as  follows: 

u(x,y)  -  I  u  ( x , y )  +  j  u  (x,y)  (72) 

x  y 
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.  Geometry  ot  the  Basic  Representative  Element. 


The  displacement  u(x,y)  is  in  reference  to  point  MQ,and  we  note  that 

u(0,0)  -  0 


and  therefore 


u  (0,0)  =  0 

u^(0,0)  *  0 


(73) 


If  we  now  look  at  the  rectangle  upside  down, then  we  notice  that  the  con¬ 
figuration  as  well  as  external  force  geometry  remains  unchanged.  That 
means  that  the  displacement  vector  at  the  point  P(-x,-y)  in  the  180° 
rotated  coordinate  system  must  be  identical  to  the  displacement  vector  at 
P(x,y).  Therefore, 


i  u  (x,y)  +  j  u  (x,y)  -  -  i  u  (-x,-y)  -  j  u  (-x,-y) 
x  y  x  > 

or 

U  (x,y)  -  -  u(-x,-y) 

X  X  (74) 

uy(x,y)  -  -  u  (-x,-y) 

Equation  (74)  shows  the  fact  that  within  each  rectangle  there  exists  a 
pair  of  points  which  are  located  centrally  symmetrica  1  with  respect  to 
the  centroid  and  for  which  the  relative  displacements  are  also  centrally 
symmetrical  with  respect  to  each  other. 

Next  we  have  to  consider  rectangle  A'DCB'  and  investigate  the  relative 

displacement  vector  with  respect  to  centroid  M'  at  a  point  ?'(x',y") 

o 

within  that  rectangle.  The  relative  displacement  at  P1  is 

u '  (x '  ,y ' )  -  i  u^(x '  ,y  ' )  +  j  u^x'.y')  (75) 

At  the  point  M^(x '»0,y '«0)  ,  we  have 


u  1  (0,0)  -  0 
x 

Uy ( 0 , 0 )  -  0 


(761 


The  fiber  configuration  within  rectangle  A'DCB1  is  the  mirror  image  of,  the 
fiber  configuration  within  rectangle  ABCD  with  the  mirror  line  y'  ■  -  — 

(or  y  ■  ♦  ”) .  However,  the  mirror  images  of  the  external  force  configura¬ 
tion  become  antidirectional  but  coll  inear.  This  means  that  by  changing 
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the  sign  of  all  external  forces,  the  relative  displacement  vector  in 
rectangle  A'DCB1  will  be  the  mirror  image  of  the  relative  displacement 

vector  within  rectangle  ABCD.  The  mirror  line  is  again  y'  ■  -  Changing 

the  sign  of  external  force  for  rectangle  A'DCB1  is  equivalent  to  changing 
the  sign  of  the  displacement  vector.  Let  us  consider  point  being 

the  mirror  image  of  point  P(x,y)  with  respect  to  y  ■  +  -;  then 


or  with  (70), 


XM  "  X 

yH  •  y  +  2(|  -  y)  -  b  -  y 


yM  •  yM  • b  ■ b  ■  y  ■ b  ■  • y 


(77) 


The  negative  mirror  image  of  vector  u(x,y)  will  be  u'(x',  y')  as  follows: 

MM 

u  (xM,yM)  “  “  j*  ux<x,y)  ■  3  uy(x»y)J  (78) 

Because  of  (77)  and  i  «  i  1 ,  j  ■  j 


u  (xM,yM)  “  *  ux(x»"y)  +  3  uy(x*  ’  y)  (79) 

Combination  of  (78)  and  (79)  gives 

T  [«;(«,  -y)  ♦  ux(x,y)J  +  J  [«y<x»  -  y)  -  uy<x»y)J  -  0 

(80) 

This  vector  equation  can  only  be  satisfied  if  each  component  becomes  zero. 
Therefore,  the  following  two  equations  are  obtained: 


ux(x,  -  y)  -  -  ux(x,y)  (81) 

uy(x,  -  y)  -  uy(x,y)  (82) 


Equations  (81)  and  (82)  show  the  relative  displacements  in  rectangles 
A'DCB'  and  ABCD  to  each  other. 
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In  a  similar  fashion  we  can  get  a  relation  between  the  relative  displace¬ 
ments  in  rectangle  BA"D"C  and  the  corresponding  relative  displacements  in 
rectangle  ABCD.  We  make  use  of  the  mirror  symmetry  about  the  line  x  =  c 
and  apply  the  same  line  of  reasoning  as  before  (to  distinguish  from  other 
symmetries,  the  sub-index  M  is  primed). 

The  relative  displacement  at  a  point  P"  (x",y")  within  rectangle  BA"D"C 
is 


G"(x",y")  =  iV'^.y")  +  3  "uy(x",y") 


Since  0"(x",y")  is  in  reference  to  M^',  it  is  again 


u"(0,0)  -  0 
or 

u"(0,0)  -  0  and  u"(0,0)  -  0 
x  y 


(83) 


(84) 


Hie  mirror  symmetric  point  to  P  with  respect  to  line  x  *  c  has  the 

coordinates  xw,  yM,  as  follows: 

M  M 


or  with  (71), 


xw,  »  x  +  2(c  -  x)  ■  2c  -  x 

M 


y 


M' 


y 


X 


M' 


x;  y„t  *  y 

M 


(85) 


We  consider  the  negative  mirror  image  of  vector  u(x,y)  with  respect  to 
line  x  ■  c  and  obtain 

u"(xM"  yM'>  "  "  *  ux^x»y>  +  J  uy(x,y)J  (86 ) 

Because  of  (83)  and  i  «  I",  j  -  J",we  get 

u"(xM”  "  *  Ux(_x’y)  +  j  uy('  x’  (87) 

and  therefore 

l[Ux('  x,y)  ‘  ux(x,y)]  +  j"[Uy(‘  x,y)  +  uy(x'y)]  "  0 
Hence,  we  get  the  desired  relations: 


^(-x.y)  -  ux(x,y) 


(88) 


Uy("X»y)  -  -  Uy(X,y) 


(89) 
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The  displacement,  vectors  u'  and  u"  at  points  P1  and  P"  are  in  reference 
to  M'  and  M"  respectively.  In  order  to  obtain  the  corresponding  displace¬ 
ment  vectors  with  respect  to  MQ,we  must  introduce  the  relative  displace¬ 
ment  vectors  of  M1  and  M"  with  respect  to  M  ,  which  are  denoted  by  U  ,V  . 

oo  K  o’  J  o  o 

In  general  the  relative  displacement  vectors  for  points  along  the  line  x  ■ 
0  and  y  =  0  are  as  follows: 


l'(x,y)  =  i  (My)  +  j  U  (y) 

(90) 

V(x,y)  =  i  (x)  +  j  V  (x) 

( 1  1  > 

Because  l!  (x,y)  -  const  and  V  (x,y)  *  const  and  the  symmetry  relations  are 

y  x 

as  follows,  we  have 


U(y)  -  -  U(x,-y) 

and 

V(x)  =  -  V ( - x ) 

Therefore, 

U  (y)  =  0  (92) 

V  (x)  =  0  (93) 

X 

and 

U  (y)  =  -  U  (-y)  (94) 

x  x 


Also 


and 


V  (x)  =  -  V,  (-x) 

y  y 


U  =  i  U  (0,b) 

O  X 


Vc  =  3  Vy(2c,0) 


(9  3) 


(96) 


(97) 
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The  d i. .placement  vector  at  point  P1  relative  to  M  is  therefore 

o 

UTOT^X,"y^  =  u'(*»‘y)  +  1'0  (9SN 

and  the  displacement  vector  at  point  P"  relative  to  M  is  similar;  i.e., 

o 

^TOT('X,y)  =  uM(-x,y)  +  Vo  (99) 

With  (77),  (83),  (96),  and  (97),  we  get 

u^0T(x,-y)  =  i  ^u^(x.-j)  +  Ux(b)j  +  j  u^(x,-y)  (100) 

UT0T("X,y)  31  *  ui'("x»y)  +  3  ^u”(-x,y)  +  Vy (2c >J  (101) 

These  two  relations  are  meaningful  only  when  there  are  continuities  of 
the  displacement  vector  at  the  lines  y  |  and  x  =  c. 

At  these  lines,  we  must  have 


and 


also , 


and 


GTOT(X’  +  2 


“  it  /  b 

n  UT0T  X  ’  "  2} 

9y 


,  n 

— - u(x , 

n 

-x 


b 

2 


) 


(n  =  1  ,  2  ,  3  , 


(102) 


(103) 


u 


It 

TOT 


(  “  c  ,y) 


u(c ,y) 


(104) 


n 

n  UT0T^ 

jy 


c  »y)  *  u(c  ,y  ) 
cy 


(105) 


From  (102),  (100),  and  (72),  we  get 


.  ,  b,  ,  b,  1 

r  , ,  b 

b  1 

Lux  x’  "  ”  U^X’  +  Vb)J  +  j 

u  (x,  -  rJ  - 

l  y  2 

V-  2>J 

0  (106) 
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Because  of  (81)  and  (82)  and  Che  fact  that  each  component  of  Che  vector 
equation  above  must  vanish,  it  follows  that 

u(x,  |)  -  h  Ux(b)  (107) 

( 107 )_represents  one  boundary  condition  along  line  y  •  b  (in  Figure  28 
1  ine  CD). 

From  (103)  (n  ■  1),  we  have 


'u-  b  b 

a*" (x-  ‘  V  '  2> 


+  J 


Au'  .  Au  . 

J<x-  -  v  *  8/<x>  *  !>  -°  <108> 


From  (9),  (10)  and  their  partial  differentiation  with  respect  to  x  at  y  • 
|  .  we  get 


Au' 

X 

Ax 

,  Su»,  ", 

<«•  •  V  ■  ‘  aT<x-  2> 

(109) 

Au'y 

.  Au  v 

Ax 

<Xl  •  V  ’  9^<x-  2> 

(110) 

Equations  (108),  (109),  and  (110)  give 

£<*•  !>  ■ 0  <m> 

b 

Differentiation  of  (82)  with  respect  to  y  at  y  •  gives 


Au 1  . 


Au„  . 

^(x’  2> 


and  with  (82)  follows 


Su  . 

_ 1  (  V  ^) 

Ay  lX’  2 ' 


Au  . 

T?  <«•  !> 


or 


A*j 


0 


(112) 


(113) 


(114) 
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(Ill)  and  (114)  issue  the  second  boundary  conditions  along  line  y  *■  b . 
For  any  two-dimensional  problem,  the  normal  stress  is  a  homogeneous 
du  du 

linear  function  of  — —  and  — It  therefore  follows  that 
dx  dy 


CTx(x,  |)  =  o  (115) 

<r  (x,  |)  =  0  (116) 

where  (116)  represents  the  second  boundary  condition  along  line  y  =  b. 

Similar  boundary  conditions  follow  from  (104)  and  (105).  First  we  obtain 
from  (104),  (99),  (87),  (72), and  (97) 

i  [ux'("c,y)  "  ux(c,y)]  +  ^  [ uy( "  c,y)  ■  uy(c»y)  +  Vy(2c)  “]°  (117> 

and  because  of  (88)  and  (89), 


uy(c,y)  =  \  Vy(2c) 


(118) 


Equation  (118)  is  the  first  boundary  condition  at  line  x  =  c. 

Setting  n  =  1  in  equation  (105)  and  combining  with  (99)  and  (87),  we  get 


(119) 


The  partial  differentiation  of  (89)  with  respect  to  y  at  x  =  c  gives 


au"  *  du 

_Z(  .  c,y)  =  -  (c,y)  (120) 


From  the  vector  equation  (119),  we  obtain 


CONCLUSION 


Tlie  problem  of  the  elastic  medium  under  transverse  shear  load  can  be 
completely  attacked  by  solving  a  special  problem  of  the  basic  representa¬ 
tive  element  ABCD  of  Figure  27.  This  rectangle  has  been  reproduced  below 
fo  r  con ven i once . 


From  the  analysis,  the  boundary  conditions  have  been  established  for  all 
boundary  lines  of  Figure  28.  For  line  CD,  from  equations  (107)  and  (lib), 
we  have 


ux(x,|)  *  kj  (12b) 

where  kj  is  an  orbitrary  constant, 
and 

°y(x,  |>-0 

-  c  £  x  ■£  +  c  till) 
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Then 


or 


Ml  J)u 

a/(c’y)  “  ’  a/(c>y) 


(122) 


Mi 


3y 


(c  ,y) 


(12  3) 


Partial  differentiation  of  (88)  with  respect  to  x  at  x  »  c  gives 

Mi"  ?ui 

'“rf  (  "  c>y)  =TT(c’y)  (12A) 


According  to  (88),  the  left-hand  side  function  of  (124)  can  be  replaced; 
thereby 

r)U  du 

-  Mr(c’y)  ■=^r(c*y)  (,25) 

is  obtained.  'Hi is  means  that 

3u 

(c,y)  =  0  (126) 

For  the  saioe  reason  as  pointed  out  above,  and  because  of  (123)  and  (126), 
it  folios  that 


Cx<C ,y>  “  0 

(127) 

oy(c,y)  =  0 

(128) 

The  first  relation,  equation  (127),  represents  the  second  boundary 
condition  for  the  line  x  =  c  (in  Figure  27  it  is  the  line  CB) .  (118)  and 

(127)  are  the  set  of  boundary  conditions  along  line  x  *  c. 
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Along  line  CB  we  obtain  the  two  boundary  conditions  from  (118)  and  (127) 


u  (c,y)  *  k2  (132) 

where  k2  is  another  orbitrary  constant, 
and 

ax(c,y)  =  0  (133) 


for  all  values  of  y  defined  by  the  inequality 

-  \  s  y  s  \  (134) 

In  order  to  find  the  boundary  conditions  along  the  lines  AD  and  AB,  we 
make  use  of  the  central  symmetrical  property  of  displacement  with  respect 
to  the  origin  of  Figure  28.  Equation  (74)  expresses  this  property  in 
analytic  form  and  we  obtain  therefore  from  (129),  (130),  (132)  and  (133) 
with  (74)  : 


■-for  line  AB, 


where 


and  for  line  AD, 


where 


ux("x*  ■  ‘  kl 

(135) 

CTy(_X’  "  2>  *  0 

(136) 

-  C  S  X  S  +  c 

(137) 

uy(-c,  -y)  -  -  k2 

(138) 

ctx(-c,  -y)  -  0 

(139) 

b  b 

-  2SyS  2 

(140) 

With  the  boundary  conditions  (129)  to  (140),  the  problem  of  elasticity  is 
defined  and  therefore  unique  solutions  must  exist.  The  boundary  conditions 
are  especially  well  suited  for  the  method  of  finite  elements  and,  there¬ 
fore,  directly  applicable  to  the  existing  standard  two-dimensional 
numerical  program. 

In  our  Fundamental  Case  Txy  of  transverse  shear,  we  take  k^  «  0  and  k2  *  1. 
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APPENDIX  II 


SYMMETRY  RELATIONS  IN  PERFORATED  PLATES 


In  the  analysis  of  composite  materials,  it  is  necessary  to  consider  a 
n  nh  oogenous  medium  consisting  of  a  matrix  and  an  array  of  fibers  (or 
flakes).  When  the  fibers  are  collimated,  equally  sized,  and  regularly 
arrayed,  the  symmetry  of  displacements  in  the  composite  can  sometimes  be 
deduced  without  recourse  to  complete  solutions. 


rigure  29.  Sasic  Pattern  for  Fiber  Spacing  in  Infinitely 
Largs  Cross  Section  (X,  Y  mark  poles). 
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Let  us  consider  a  composite  whose  fibers  are  spaced  in  the  hexagonal 
pattern  shown  in  Figure  29.  This  pattern  is  repeated  throughout  the 
rectangular  cross-section  shown  in  Figure  30.  The  axes  of  geometry  and 
physical  symmetry  pass  through  point  A. 

In  many  typical  experiments  performed  on  this  model,  the  resultant 
loading  is  inevitably  radial  1^  symmetric  with  respect  to  point  A;  that 
is,  the  applied  force  vector  F(r)  at  any  point  r  is  the  negative  of 
the  force  vector  at  (see  Figure  30). 


F(r  ) 


-F(-r) 


(141) 


In  view  of  equation  (141),  the  displacement  response  u(r,B)  due  to 
radially  symmetric  load  system  B  is  also  radially  symmetric;  that  is, 


u(r  ,B) 


-u(-r ,B) 


(142) 


In  Figure  30,  therefore,  only  elements  I  and  II  need  be  considered 
further.  Responses  in  elements  III  and  IV  can  be  described  using 
equation  (142). 


y 


Figure  30. 


Cross  Section  Under  Radially 
Symmetric  Loading. 


Another  useful  relation  is  obtained  if  the  observer  moves  "behind"  the 
section  of  Figure  30.  Equivalently,  the  plate  with  its  attached  loads 
could  be  rotated  180°  about  the  y-axis.*  Since  the  ordinate  is  an  axis 
of  symmetry,  the  response  of  the  rotated  plate  is  the  same  as  that  of 
the  original  plate  under  a  rotated  load  system  B.  See  Figure  31  (a) 
and  (b). 


(a)  Repeated 


(b)  Rotated  180 

About  Ordinate 


*< 

^37 

(c)  Rotated  180°  With 
Loads  Reversed 


Figure  31.  Illustration  of  Rotated  System. 


Due  to  the  symmetries,  rotation  about  the  x-axis  would  yield  the  same 

result. 


This  can  be  expressed  symbolically  if  we  define  the  vector  operator 
Rot  yM  ••  the  mirror-imaging  process  just  described.  In  this  case, 

referring  to  Figure  31, 


w  = 

ROty 

I  r*J 

(143) 

"v(  w^B  )  = 

ROty 

("r  ,B  )J 

(144) 

T  <y) 

ROty 

B(*r  ) 

(145) 

Figure  31  (c)  illustrates  a  consequence  of  the  linearity  condition 
imposed  upon  this  system.  The  rather  restrictive  assumption  of  force- 
displacement  linearity  requires  the  displacement  field  u(r,“fi)  to  be  small 
in  magnitude.  In  this  case,  reversal  of  forces  results  in  the  reversal 
of  response  displacements. 


v(w7b)  =  --v(Tf.-B) 


(146) 


In  order  to  determine  synmetry  relations,  it  is  necessary  to  relate  the 
response  vector  v(w,B)  to  the  vector  u(r,B)  under  the  same  load  system  B. 

Any  radially  symmetric  load  system  B  can  be  resolved  into  two  component 
systems: 

1.  Bs>  having  loads  symmetrical  with  respect  to  both  x-  and  y-axes 

2.  B  ,  having  loads  asymmetrical  with  respect  to  both  x-  and  y- 

a 

axes 

These  systems  are  illustrated  in  Figure  32. 


*  ^ 

b.J 

W.  jtaY 

mm,  *  i- 

m 

m 

< 

Figure  32.  Resolution  of  Load  System  B. 
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If  the  rotation  operations  are  performed  on  each  component  system,  we 
find  that  symmetry  or  asymmetry  of  loading  can  be  defined  by  equations 
(147)  and  (148). 


Symmetry:  Bs(w) 

Roty  |bs(  r  )]  =  BS(T) 

(147) 

Asymmetry:  Ba(  w ) 

Roty  [b.(T)]  =  -[B.(T)] 

(148) 

Upon  application  to  equation  (144), 
obtained 

the  following  relationships 

are 

■vCw,Bs)  =  v‘Cw,Bs 

)  =  Roty^lfCf.Bg  )J 

(149) 

That  is, 

v’Cw.Bg)  = 

Roty  [-&(*?;  Bs  )] 

(150) 

v(w,Fa  )  =  v,(‘w;-Ba)  = 

■v(  "w,Ba  )  =  Roty  ^■u('f,Ba  ; 

>]  <151) 

and 

■vCw,Ba)  = 

-Roty  ^Cf,Ba  )] 

(152) 

The  response  at  point  w  in  element  I  is  determined  from  the  response 

if  at  in  element  II  by  rotating  u("?)  and  then  multiplying  by  ±1.  It  is 
important  to  note  that  only  one  element  need  by  considered  under  either 
load  system. 

Some  boundary  conditions  can  be  obtained  by  considering  conditions  along 
the  y  axis.  In  this  case,  equations  (150)  and  (152)  yield 


=  *v,  tf(*-v,B)  =  ^Cfv,B) 


v<*VBs  > 


=  Roty[TK-fy,Bs)]  =  T*(fy,Bs) 

=  -Roty[-fi-(f-y,Ba)]  =  ■?('f'y,Ba) 


(153) 

(154) 
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equation  (154)  implies  that  uf?  >B 

v 


Typical  boundary  conditions  are 


(a)  Responses  Along  Axes  due  to 
Symmetric  Load  System  B 


is  parallel  to  the  y-axis,  while 

is  perpendicular  to  the  v-axis. 
a 

lustrated  in  Figure  33. 


(b)  Responses  Along  Axes  due  to 
Asymmetric  Load  System 


il 


) 


Figure  33.  Responses  of  Points  on  Axes  of  Symmetry. 


DISCUSSION 

The  results  of  equations  (149)  through  (154)  hold  true  only  if  point  A 
is  (1)  a  pole  of  lead  radial  symmetry  and  (2)  an  origin  of  plate  symmetry. 

In  an  infinite  plate  under  uniform  shear  loading  at  the  boundaries,  an 
infinite  number  of  poles  of  type  A  exist.  In  Figure  29,  these  poles  are 
indicated  by  X  and  Y.  The  coordinate  axes  (axes  of  symmetry)  for  points 
X  are  vertical  and  horizontal  in  this  figure,  while  for  points  Y  the 
coordinate  systems  are  rotated.  For  the  infinite  plate  only  one  sub¬ 
element,  such  as  the  one  shaded  in  Figure  29,  has  to  be  analyzed  to  obtain 
a  complete  response  description.  For  the  finite  plate,  on  the  other  hand, 
an  entire  quadrant  must  be  analyzed.  In  a  practical  experiment,  such  a 
point  A  must  exist,  and  the  symmetries  of  the  loading  must  be  known  if 
adequate  verification  is  to  be  performed. 
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APPENDIX  III 


COMPUTER  PROGRAM 


INPUT  DECK  SETUP 

In  this  program  the  six  fundamental  load  cases  are  referred  to  as  cases  1 
through  6  as  indicated  in  the  following  table: 


N 

X 

N 

y 

N 

z 

T 

yz 

T 

zx 

T 

xy 

case 

1 

2 

3 

4 

5 

6 

FUNDAMENTAL  CASES  ONE  THROUGH  FOUR 


CARD 

COLUMNS 

FORMAT 

CONTAINING 

1. 

1-80 

10A8 

Run  Identification 

2. 

1-10 

E10.3 

Vf 

11-20 

E10.3 

VEII 

21-30 

E10.3 

EI 

31-40 

E10.3 

VI 

41-50 

E10.3 

vi/vn 

Repeat  cards  1  and  2  up 

to  10  runs 

3 .  Two 

blank  cards  end 

data 

FUNDAMENTAL  CASES 

FOUR  AND  FIVE 

CARD 

COLUMNS 

format 

SflKIAimc 

1 . 

1-80 

10A8 

Run  Identification 

2. 

1-10 

E10.3 

GI 

11-20 

E10.3 

GII 

21-30 

E10.3 

Repeat  cards  la  and  2  for  same  runs  made  by  cases  one  through  four 
3.  Two  blank  cards  end  data 
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CARD 

COLUMNS 

PROGRAM  FENG 

FORMAT 

CONTAINING 

1 . 

l 

II 

1  for  1st  6  files 

2. 

l- 10 

E10.3 

2  for  2nd  6  files 

vf 

11-20 

E10.3 

VEn 

21-30 

E10.3 

Ei 

31-40 

E10.3 

vt 

41-50 

E10.3 

vT/vTT 

Repeat  card  2  NS  times,  in  the  order  the  runs  were  made  in  Phase  I 
3.  One  blank  card  ends  the  run 


Because  of  core  size  Limitations,  a  limit  of  10  runs  of  six  fundamental 
cases  can  be  run  at  one  time.  Also,  because  only  20  cases  were  needed  for 
this  study,  Program  FENG  was  written  to  accept  only  two  sets  of  six  files, 
these  to  be  run  separately.  If  more  files  are  to  be  desired  on  one  tape, 
appropriate  tape  spacing  Logic  must  be  added  to  the  program. 

PROCEDURE  FOR  WRITING  DATA  TAPE  20 

Before  running  Program  FENG,  it  is  necessary  to  write  a  data  tape  con¬ 
taining  stress  values  for  each  of  79  triangular  segments.  This  is 
accomplished  by  running  sequentially  Fundamental  Case  1  through  Fundamental 
Case  6,  one  or  more  times.  Each  fundamental  case  generates  one  file  on 
Tape  20  which  is  an  input  to  Program  FENG. 

For  each  set  of  six  files,  the  Program  MAIN  must  be  adjusted  for  cases 
1  through  4,  and  Program  LONTUD  must  be  modified  for  cases  5  and  6, 
as  follows: 

*  The  first  record  of  the  first  file  on  the  tape  must  contain  the 
integer  Ng  ■  number  of  runs  per  file. 

*  Each  Fundamental  Case  must  space  Tape  20  an  appropriate  number  of 
files  so  as  to  leave  room  for  files  already  written. 
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'phase' 

l  2  J 


^  DID 
V,  CHANCJ 


PRINT  COORDS  OF 
NODES  AND 
CEN*!ROIDS 


PROGRAM  FENG 
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MOVE  TAPE  FORWARD 
SIX  FILES 


/Ov 


RE  TIUN  ] 


GENERATE  COORDINATES  FOR 
NODES  AND  CENTROIDS  EACH 
TRIANGLE 


RETURN  I 


SUMOU  TINES  PHASE  2,  TOPOL,  GEOM,  IN  TER  F 


I 


SUBROUTINES  FIXSTR  (KASE) ,  PHASES 


PHASE  ONE 


FUNDAMENTAL  CASES  ONE,  TWO,  AND  SIX 
(TRANSVERSE  LOADING) 

FUNDAMENTAL  CASE  I 


C 

c 

c 

c 


c 

c 

c 


PROGRAM  MAIN 


THIS  IS  THE  EXECUTIVE  PROGRAM  USED  WITH  SUBROUTINE  BIGMX  AND  SUBROUTINE 
CHLSXY  TO  GENERATE  AND  SOLVE  LARGE  SYSTEMS  OF  LINEAR  EQUATIONS 


REWIND  20 

CALL  TAPFSXIPI 20.6,01 
1  CONTINUE 
CALL  INPUT 


CASE  1 


NOW  HAVE  ALL  K-PRIME  AND  CDA  MATRICES 


CALL  CHLSXY 


C 

C 

C 


NOW  HAVE  SOLUTION  U  IN  SP 
CALL  STRESS 


C  ALL  STRESSES  NOW  PRINTED  OUT 
C 

GO  TO  1 
END 


66 


\ 


u  u  u  o  u  u  yj 


SUBROUTINE  INPUT 
TRANSVERSE  NORMAL  CASE  1 


THIS  SUBROUTINE  REAUS  ANO  PRINTS  THE  INPUTS  FOR  THE  PLANAR  FINITE 
ELEMENT  PROGRAM.  ALL  INPUTS  NOT  READ  ARE  GENERATED  HERE. 

COMMON  /STRSS/  ALFI155).  MSIZE,  R.  GAMMA.  El.  GII.XNUI2) 

COMMON  /l/  SI  32 .32.5 ) .L ( 300.3) ,G( 32) .SPACE (20 > 

1  .  NUF ( 3.31A)  ,X(155I,Y(155)«CDA(3,6.250) 

2  .  XPRI6.6.250) .MSKI 310 ) .JTOTAL.N.KREM.M  ,  IMP,  I  PL 

3  .  P ( 155.2)  .0(155.2) 

COMMON/LIM/  LIM1 ( 101 .LIM2( 10) 

DIMENSION  SPI32.10) 

DIMENSION  NUYX (250) .NUX Y ( 250 ) .  GXYI250).  EXI250I.  EY(250) 

dimension  bump ( i o >  .  bumpks) 
equivalence  (NUF.SP) 

EQUIVALENCE  (C.CP) 

DIMENSION  JLI79.3) 

DIMENSION  COMENT(IO) 

C 

C  NUYX  *  NUXY.  THIS  MODIFICATION 
EQUIVALENCE  (NUXY. NUYX) 

DIMENSION  TH( 155 )  .  CPI3.3I  .  T1 13.3.2) .T2 ( 3 .3  I .OTDI 10 ) . 

1  T (6.6) .KMX (6 .6 ) .  C ( 3 . 3 ) . A ( 6 .6 • 2 ) .DO ( 3 .6 ) .DO ( 1 8 ) ,DTO ( 6 . 3 ) 
EQUIVALENCE  (S.F)  .  IS(QOl).VF).  ( S I  1601 > .PHI  I , I S ( 2701  ) ,ER ) 

1  .  ( S ( 3001 ).EF).IS( 399 1 ) .MUR  > 

2  .  (DO.OD)  •  (DTO.DTD)  .  (SIA356I.TH) 

3  •  ( S ( 45 1 1  I .CP )  .  I  SI  4521 ) *T 1 ) •  ISI4541I.T2) 

4  .  I S 1 455 1 )  .  CABC )  .  ISI4581I.T)  .  I  SI  4621 ) .KMX ) 

5  •  ISI4671I.A) 

TYPE  REAL  NUXY 

TYPE  INTEGER  BUMP,  BUMP1 

TYPE  REAL  NUYX.  NUR.  NUF ,  KPR ,  KMX 

DATA  IKTOTAL  »  97) 

DATA t  BUMP «  2.4.7.7.15.1  .9  .9  ,12.-1) 

DAT  A ( BUMP  1  *  5.7. 7. 7. 5  )  ,<P|>  3.1415927) 

DATA  (RAO  *  57.29578) 

DATA  I  XL IM* l.E— 6 ) 

DATA  (PK>999.) 

DATA  I (DD( JJ) .JJ-1.18)  *  0..  0.,  0.,  1..  0..  0..  0.,  0.,  1.. 

1  0..  0.,  0..  0..  0.,  1.,  0.,  1..  0.  ) 

DATA  I  I DTDI JJ ) *JJ*1 , 18 1  *  0.,  1.,  0*.  0..  0.,  0.,  0. ,  0..  0*. 

1  0..  0..  1..  0..  0.,  1..  0..  1..  0.) 

DATA! I  I JL 1  I .01 , I •1.79) , J>1 ,3 )  * 

1  1.1 .1.2. 2 .3.3 .3. 4. 4, 4. 5. 6. 7.7. 8. 8. 8,9.10. 10.1 1.1 1.12, 13 .13. 

2  14. 15. 15. 16*16.1 7. 17.18. 18. 19. 20. 23*24. 24. 25 .25 .25. 26*28. 29, 

3  29 .30. 30, 35 .2 1.21 .21 .2 1.22 .22,23. 23. 27 .27. 27. 28. 28 .36. 46 .37, 

4  47.38.48.39.39.40.41 ,41,41,42,42.43.43. 

5  2. 3. 4. 6.7. 7. 8, 9. 9. 10. 11, 11, 13. 6. 14.14, 15 .16, 16, 16.17, 10. 

6  18.18.20,21.21.21.22.15.23.23.24.17.25.25.35.27.27,28.28.29, 

7  30,30,32,32,33.33.34,36.35.37,38.39.39.40,40,41.41 .42,43.43.44. 

8  45.37,46.38.47,39.48,49.49,49,50.51,51,52.52.53. 

9  3.4.5.7.3.8.9.4,10.11,5.12.14,14.8.15.16.9.10.17.18.18.12. 

1  19.21,14.15.22,23.23.17.24,25.25.19.26.21.24,28,25.29,30.26. 

2  31 .29,33.30,34.31.37,37.38.39.22.49.27,41.27.42.43.28.44,32, 

3  46. 36. 47, 37.48. 38. 49,40.50, 59, 51 .42, 52. 43.53. 44  ) 

C 

READ  1000, I  COMEN  TII), 1*1.10) 

1000  FORMAT  1 10A8) 

PRINT  1001. (COMENTI I), 1.1,10) 
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U  KJ  U  V  KJ  U 


1001  FORMAT! 1H1.1UA8) 


KTOTAL  -  TOTAL  number  of  nodes  considered 


READ  AND  PRINT 
JTOTAL  «  1S8 

READ  1003.  OF.  GAMMA, El.  XNUI,  BETA 
1003  FORMAT C5E 10.4) 

IF  (VF.EO.O.)  GO  TO  980 
PRINT  1018 
PRINT  1016 

PRINT  1017.  VF.  GAMMA,  tl.  XNUI.  RETA 

1016  FORMAT ( 1H  .13X.2HVF,  1  OX , SHGAMMA .  13X.2HEI,  11X.4HXNUI.  11X4HBETA) 

1017  FORMATI1H  .5(ElS.8)t 

1018  FORMAT!////) 

S3  =  SORT ( 3. ) 

S302  *  S3/2. 

Ell  «  El  /  GAMMA 

XNUII  *  XNUI /BETA 

GII  *  EII/I2.«I1. +XNUII ) ) 

XNUII)  «  XNUI 
XNUI?)  *  XNUII 

EPI  *  El 

EPI I  »  Ell 

XNUPI  «  XNUI 

XNUPII  •  XNUII 

EPI  *  EI/ll. -XNUI«*2> 

EPI I  •  El  I /( l.-XNUI I»*2) 

XNUPI  *  XNUI / I l.-XNUI ) 

XNUPII  ■  XNUI I /! l.-XNUI I ) 

DO  ?00  I  •  1.97 
THI!)  *1. 

ALFI I  MO. 

Dll.ll  ■  1300. 

Dll. 2)  >  1000. 

PI  I.l)  ■  II. 

PI  1.2)  >  0. 

200  CONTINUE 
I  •  0 

DO  201  J»  1.10 
I  »  I  *BUMP(J> 

PI  I .2)  *  1000. 

P I  98- 1 .21  •  1000. 

011*21  *  0. 

D( 98-1 .2  I  •  0. 

201  CONTINUE 
1  ■  0 

DO  202  J  *  l.S 
I  >  I*  Bump i i j i 
P I  I . 1  I  *  1000. 

PI  98- I.l)  =  1000. 

01 1*1)  *  1. 

DI98-I.il  =  -1. 

202  CONTINUE 

Pll.l)  *  1000. 

PI  1 .2)  *  1000. 

Dll.l)  >  1. 
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c 


c 

c 


c 


0(1.2)  >  u. 

P( 5*« I  I  >  1 0«0< 

PIUi?l  *  invi  m 

D(34.1)  *  1. 

0(34.?)  «  t-. 

p|f>4«ii  «  inrr,. 

P(64 .2)  «  Ktfi, 

0(64*1)  «  -1. 

Dl 64*2  I  *  . 

p < 97* 1 1  *  iron. 

P ( 9 7. 2  I  «  icon. 

D( 97 » 1  )  *  -1 . 

0(97.?)  *  0. 

R*  SORT (2.*S3*VF/PI  ) 

K(H  •  sio? 

7(1)  ■  .5 
00  ?1G  1*1*4 

XI  I  4 1  )  *  5302  -  R/4.*C0S(PI*( t-1 I /6.) 
7(1*1)  ■  .5  -  R/4.  *SIMPI»I  1-1  I  /6.) 

? 10  CONTINUE 


00  2?0  1*1,7 

X(I*5)  ■  S302  -  R/2  •  •  C0S(P1*( 1-1  1/1?. I 
7(1*5)  «  *6  -  R/2.*  SIN(Pi*( 1-1  1/12.) 


X(l*l>»  ■  S302  -  3.*R/4.*C0S(P1«  I  l-l )/l2. I 

7(1*1.?)  •  .5  -  3.*R/4.*SIN(PI*(  1-1 1/12.  I 


X( 1*19)  •  S302  -  R  *  COS(PI*( 1-1  )/12.) 
71 1*19)  •  .5  -  R  *  SIN(PI*( 1-1  )/12.) 
220  CONTINUE 

X  (  34 )  •  5302 
7(34)  *  -  .5 
X  (  3 1 1  *  S302 

7(311  «  ( 7( 26 )*7(  34  I )  /  ?. 

X ( 43  I  ■  -.5*  TAN (PI/6.) 

7(43)  ■  .5 

OX  «  ( l.-R)/(2.*C0S(P|/6. ) I 
X ( 36 )  *  X ( 45  I  ♦  DX 
7(36)  *  .5 

X  I  35 1  ■  (X(2U|*X(36) )/2. 

7(35)  ■  .5 


DO  230  I  *  1.4 

X( 1*45  )  «  (4-11*  X ( 45 )  /4 • 


7(1*45)  *  1 4  -It*  7(45)  /4 . 

230  CONTINUE 
C 

DELX  *  X ( 46 )  -XI45) 

DEL 7  *  7(461-7(45) 

00  240  I  ■  1.8 
X ( I *36  )  »  X ( 1*35  »  *OELX 
7(1*36  )  «  7(1*35)  *DEL7 
240  CONTINUE 

X ( 32 )  «  X ( 44  I  ♦ ( X  (  34  I —X (44) )/3# 
7(32)  ■  -.5 

X ( 33 )  •  2.*X ( 32)  -  X  1 44 ) 

7(331  •  -.5 

X ( 2 7 )  «  X ( 23  >  *  ( X( 32 l-X ( 23 ) ) /3. 
7(27)  «  7(23)  ♦  (7(  32 1-7(23  I )/3. 
X ( 28 )  «  2.*X(27)-X(23I 
7(28)  «  2. *7(271-7(23) 
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nor* 


c 

c 


X  f  2  <3  »  =  X  (  28  1  *1  X  (3  1  )-X  C  28  1  ) /3. 
YI29)  =  YI28)  *(Y(11)-YI?8ll/3. 
XI 30)  =  2.«X (29  I -XI 28  > 

Y( 30)  =  2.»Y I 29)-Y( 26  ) 


DO  230  1*30,97 
XI  I  I  =  -XI98-I  ) 
Y I  I  )  =  -YI98-I  ) 
230  CONTINUE 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


PRINT  OUT  nodal  DATA 
I  *  1 

12  CONTINUE 
LINE  =  4 
PRINT  1010 

13  CONTINUE 

PRINT  1011.  I.  X(I).  Y ( I  I .  P(I.l).  PII.2I.  0(1.1).  0(1.2). 

1  THI  I  I .  ALF( I  ) 

I  *  1*1 

IF( I.GT.KTOTAL)  GO  TO  14 
LINF  *  LINE  ♦  2 
IFILINE.GT.36)  GO  TO  12 
GO  TO  13 
1*  CONTINUE 
1011  FORMATI1H  14.71 3XE11.4) .3X.F11.2/I 

1010  FORMAT  I 3M1NODE .7X.1HX.13X.1HY.13X.2HP1.12X.2HP2.12X.2H01.12X.2HD2. 
1  8X.9HTHICKNbSS.9X .5 HAL PH A  /) 


1 

X 

V 

PII.1) 
P ( I .2  I 
0(1.1) 
Oil. 2) 
ALFI  I ) 

THI  I  I 


NUMBER  OF  NODE 
X-  COORDINATE  OF  I TH  NODE 
Y-  COORDINATE  OF  ITH  NODE 

KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  1  DIRECTION 
KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  2  DIRECTION 
KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  1  DIRECTION 
KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  2  DIRECTION 
ANGLE  BETWEEN  X  DIRECTION  AND  1  DIRECTION  (POSITIVE  WHEN 
COUNTER-CLOCKWISE) 

PLATE  THICKNESS  AT  ITH  NODE 


GET  MSK  MATRIX 
JP  •  0 

DO  27  J*1 .KTOTAL 

DO  27  1*1.  2 

IF  (PIJ.I I.GT.PK)  GO  TO  27 
JP  ■  JP*1 

MSK(JP)  «  2  *  (J-l)  ♦  I 
27  CONTINUE 

MSK  IS  MATRIX  OF  INDICES  OF  KNOWN  FORCES 
IF  FORCE  P  IS  UNKNOWN.  IT  IS  INPUT  AS  1000. 

NOW  REAO  IN  TRIANGLE  DATA 

JTOTAL  -  TOTAL  NUMBER  OF  TRIANGLES 
DO  19  I » 1.79 
DO  19  J-1.3 
19  LI  I .J)  «  JL( I .J) 

DO  260  !«  80.138 

DO  260  J*  1.3 

L( I .J)  *  98  -  LI  139-1 .J) 

260  CONTINUE 

LIJ.l)  -  INDEX  OF  THE  FIRST  NODE  OF  THE  JTH  TRIANGLE 
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n  n  n  on 


C 

C 

c 


LIJ.2)  -  INDEX  OF  THE  SECOND  NODE  OF  THE  JTH  TRIANGLE 
LIJ.3I  -  INDEX  OF  THE  THIRD  NODF  OF  THF  JTH  TRIANGLF 


DO  20  I=l.JTOTAL 

IF( I.LE.36.0R.I.GE.123)  GO  TO  300 
EXI I )  *  EPI I 
EY<  1 1  =  EPI I 
NUXY(I)  *XNUP I  I 

GXVII)  *  EPI I/I2. *( l.+XNUPI III 
GO  TO  310 
300  EXI I)  =  EPI 
EYI II  =  EPI 
NUXYI  I  I  =  XNUPI 

GXVIII  =  EPI  /  1 2 •* 1 1 .+XNUP I  I ) 

310  CONTINUE 
20  CONTINUE 
C  PRINT  OUT  TRIANGLE  OATA 
LINE  *  A 
PRINT  1012 
DO  24  I*1.JT0TAL 
IFILINE.LT. 54)  GO  TO  22 
LINE  ■  4 
PRINT  1012 

1012  FORMAT ( 1H1 .8HT  R I  ANGLE .4X6HN0DE  1.3X.6HNODE  2.3X.6HNODE  3.18X.2HEX. 

1  18X  2HE  Y  » 16 X . 4HNUYX . 1 7X .3HGXY/ / ) 

22  LINE  ■  LINE *2 

24  PRINT  1023.  I.  I L I  I . J I . J« 1 .3  I .EX  I  I  I .EY I  I  I .NUYX I  1 1 .GXY I II 
1023  FORMAT  I 1H  .5X.I3.7X.I3.2I6X.I3) .4 15X.E15.8I/) 


MSIZE  ■ 

156 

KREM  *  6 

N  »  25 

M  «  MSIZE 

/  N 

IFIKREM. 

NE 

•  N  I 

LIMlll) 

1 

LIM1I2) 

1 

LIM1I3) 

1 

L IM1 1 4  I 

1 

LIM1I5I 

1 

LIM1 (6  I 

1 

LIM1I7) 

1 

LIM2I1) 

158 

LIM2I2) 

158 

LIM2I3) 

158 

LIM2I4) 

158 

LIM2I5I 

158 

L 1M2 (6  I 

158 

LIM2C7) 

158 

PRINT  OUT  PARTITION  INFORMATION 
PRINT  1008 

1008  FORMAT! 1H1.12X.20HTRIANGLES  CONSIDERED! 

DO  31  I-l.M 

IS1ZE  *  N 

IFIl.EO.il  I  SIZE  -  KREM 
PRINT  1009.  I.LIM1II) .L I  M2  I  1 1 .  ISIZE 
31  CONTINUE 

1009  F0RMATI10H  PARTI T ION  .6X  5HF IRST .2X.2HTO.2X .4HLAST  *  6X .9HD I  MENS  1  ON/ 

1  4X.13.11X.I3.6X.I3.10X.I3) 
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non 


DO  ?B  I  *  I.XTOTAl 
AlF (  1  )  =  AlF I  I  t /RAD 

26  CONTINUE 

C  all  ANGLES  non  in  radians 
DO  400  1*1.  JTOTAL 
Cl  IS  A  triangle  counter 

Bll  *  l./EXI  I  ) 
b 12  1  -NUYXI  It  /  trill 
B22  =  1.  /  E  Yl  1  ) 

B 33  *  1.  /  GXYI  I  ) 

DELTA  «  B 1 1 *B2 2  -B1 2**2 
C  P I  2 . 1 )  *  -  B12  /  DELTA 

CP( 1.11  =  B22  /  DELTA 

CPI3.lt  =  0. 

CP( 1 .2  I  =  CPI2.lt 
CPI  2.2 )  *  Bll/  DELTA 

CPI  3.2 )  =  0* 

CPI  1.3)  *  0. 

CPI2.3I  *  0. 

CPI  3.3 )  =  1./B33 
C 

C  C  NOW  IN  CI3.3)  .  MATRIX  I 

C 

30  CONTINUE  r 

THOMEG  *  XILI 1 .2) >»VILI 1 .3  I t  4X I L I  I • 1 > I • Y I L I  I .2 ) I 

1  ♦  YIL I  1 . 1 ) t'XIL I  I .3 )  )  -X (L I  I .3) )«YIL 1  I .2 )  I 

2  -  XILI 1 *1  )  l*YIH I .3 ) I  -Y( L I  I *1 1 l*x IL I  I .2 t ) 

THOMFG«l  TMILI  I  .1  H*TMILI  1  •?  >  )«-TH(L  (  1  .31  I  )/  6.  •  THOMFG 
X 12  *  XILI 1.2) )-  XILII.lt> 

X  1 3  *  XILI  1. 311-  XILII.lt> 

ETA2*  YILII.21I-  VILIl.lt) 

ETA3*  VILI 1.3) )-  YILII.lt) 

DELTA  «  XI2*ETA3  -  XI3*ETA2 
DO  3B  II  •  1.3 
DO  36  JJ  *  1.3 
At  I l«3« JJ.l I  *  0. 

AIII.JJ43.lt  *  0. 

All  1*3. JJ. 2 )  *  0. 

AtII.JJ43.2l  =  0. 

36  CONTINUE 

All. 1.1)  *  1. 

AI2.1.1)  '  -IETA3-ETA2)  /  DELTA 
AI3.1.1)  *  IXI3  -  X 1 2 1  /  DELTA 
A( 1  .2.1  )  =  0. 

A 1 2 . 2 . 1  )  *  F  T A3  /  DELTA 
AI3.2.1)  *  -X 1 3  /  DELTA 
All. 3.1)  *  0. 

AI2.3.1)  *  -ETA2  /  DELTA 

AI3.3.1)  *  X 1 2  /  DELTA 

DO  39  II  *  1.3 

DO  39  JJ  *  1.3 

Al 1 1 *3. JJ*3 • 1  I  *  A(II.JJ.l) 

A I  I  I . JJ.2 )  =  AIJJ.II.il 
Al I  1*3. JJ*3.2 )  -  AIJJ.II.il 
39  CONTINUE 

transpose  of  inverse  of  a  now  in  au.i.2)  .  a  inverse  still  in  a 

call  MXHULTI DO. a .KMXI 1 . 1 ) .3.6.6 ) 

CALLMXMULTIC.XMX(l.l)  .CDA I  1 , 1 » I  I .3 .3 .6 t 
c  PRODUCT  C*D*IA»4-1)  NOW  IN  CDA(l.l.I).  I TH  TRIANGLE 
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CALL  MXMULTI Al  1.1,?) .DTI .A.6 ,6 ,3 ) 

CALL  MXCON  ( A  ,KHR  <1.1,1  )  »  T  HL’Kf  0.6.3  ) 

CALL  MXMULT  <M>RI  1.1.1)  .C DAI 1,1.1) .KMX .6,3.6 ) 

c 

e  ITRlX  Ml)  NOW  IN  KMX  *  TRIANGLF  I 


DO  40  || 

9 

1  .6 

00  40  JJ 

m 

1.6 

Till « JJ I 
4,)  CONTINUE 

«  0. 

Tll.l) 

COSIALFILI  1.1)1) 

T 14.1 1 

SINI  ALML  1  I  .1  )  1  1 

112. 21 

COSIALFILI 1.21)1 

TIS.2) 

S INI ALFIL 1 I .?)) ) 

TIT, 3) 

COSIALFILI  I. 3D) 

T 16 .3 ) 

SINI ALFIL 1 1.3))) 

Til. 41 

-TI4.1 ) 

TI4.4I 

Tll.l) 

TI2.3I 

-TIS. 2) 

T 13.3) 

T 1 2 .2  ) 

TI3.6I 

-TI6.3) 

T 16.61 

T 1 3 , 3  ) 

CALL  MXWULT  IKMX.T .4,6.6 .6 ) 

TI4.1I  ■ 

- 

T  14.1  ) 

T 15,2 1  • 

- 

TI5.2  I 

T 14.11  * 

- 

TI6.3I 

Til. 4)  • 

- 

Til .4) 

T 12.31  • 

T 12 .3  I 

TI3.6I  - 

mm 

T  1  3.6 ) 

c 

C  INVERSE  Of  T  NOW  IN  T 
C 

CALL  MXMULT  I T  »A ,KPR (1,1*1), 6.6, 6) 

C 

C  X -WHINE  NOW  IN  KWH  •  A  HAS  BEEN  CLOBBERED. 

*00  CONTINUE 
RETURN 

BOO  RRINT  IOBl.II.JJ.il 

1051  FOR WAT  1 1H1 •  Bh  Ef I .I3.1H.I3.7H)  «  ERI.I3.6H)  .  0.) 

STOR 

500  continue 

RRINT  1030  •  J 

1030  fORMATIlHl  35HCOULD  NOT  INVERT  MATRIX  T1 .TRIANGLE,  13) 
*30  CONTINUE 
REWIND  20 
STOR 
ENO 


CASE  1 
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subroutine  stress 


c 

C  STRESS  SUHROUtINt  CASE  1 
C 

c 

c  this  subroutine  derives  and  prints  stresses 

c 

COMMON  /STRSS/  AlMISSI.  MSIZC.  R.  GAMMA,  El*  Gl I ,XNUt 2  > 

COMMON  /l/  SI32.32.bl.LI 3uO » 3 i *GI 32 1  * SPACE  1201 

1  •  NUT  I  3*3141  *X(  lSbl.YllSSI.CDAIi,6.2S0l 

2  •  KPRI6«6«2bOI.MSK(31U).JTOTAL,N,KRtv.M  .  IMP.  I  PL 

3  •  PUSS. 2)  .OI1SS.2) 

COMMON/LIM/  LIM1 I 12I.LIM?! 101 
DIMENSION  DVXI6).  SIGOUTI63?) 

DIMENSION  SPI32.1CI 
EQUIVALENCE  IS. SIGOUT I  .INUF.SP) 

TYPE  REAL  APR 

EQUIVALENCE  IS.SIG1  .  I  SI  931  I .PSTR I  .  I  SI  1861  I « XO I • I  SI  2 1 61 ) , VO ) 
EQUIVALENCE  I  St  246  1  I  .DEL )  *  (SI2761I.DXI 
DIMENSION  ERR  I 31u I 

DIMENSION  DXI6)  •  S1GI6.168)  *  PSTRI3.310I 

DIMENSION  X0I30DI  •  VCI3CDI.  DEL  I  *  1 0  I 
DIMENSION  KS22I 32*96) 

EQUIVALENCE  IKPR.KS22) 

TYPE  REAL  KS22 
DATA  <PK*999.) 

C  REMOVE  GAPS  FROM  SP I  32 .10  I  ■  DELI  310  I 
00  S  J-l.KREM 
DEL  I J I  *  SPIJ.1) 

S  CONTINUE 

KLOC  ■  KREM  -N 
DO  10  I  •  2*M 
KLOC  «  KLOC  ♦  N 
DO  1U  J  •  l.N 

delikloc+ji  ■  SPij.n 

10  CONTINUE 
PRINT  1010 

1010  FORMAT  I 1H1.S0X.1  3 HD  I SPL ACEME NTS  * / /  I 
NOEL  •  MSI2E/7 

JCNT  •  0 

DO  IS  J-l.NDEL 

JCNT  ■  JCNT  ♦  1 

IF| JCNT. LE. 181  GO  TO  16 

PRINT  1019 

JCNT  •  0 

16  JFIR  ■  7»IJ-1)  ♦  1 
JLAST  «  JF|R  ♦  6 
PRINT  1011  •  IK.K-JFIR.JLASTI 

1011  FORMAT  1 1H  .7 18X *6M0EL I . I  3 » IMI  I) 

PRINT  1G12*  IDELIK).K»JFIR. JLAST) 

1012  FORMAT  1 1M  •  7 1 2X *E16. 7  I / ) 

IS  CONTINUE 

LOCI  ■  7»N0EL*1 
L0C2  ■  MSIZE 

IFIL0C1.GT.L0C2)  GO  TO  20 
PRINT  1011.IK.K-LOC1.LOC2) 

PRINT  1012.  I  DEL  IK) »K>LOC 1 .L0C2  ) 

20  CONTINUE 

DO  8S5  I«1.JT0TAL 
J  ■  I 
KZ  »  0 

DO  831  KK  »1»3 
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DO  832  KJ  *1 *2 
U  •  K{  *  1 

IF  I  PILU.KKI.KJ1.GT.PKI  GO  TO  828 
1FI2*ILIJ.KK1~11  ♦KJ—MSK  I  I  PL  I  I  801*  802.  803 

802  M2  «  IPL 
GO  TO  827 

801  I  MR  •  IPL  -  1  „„ 

806  IFI2«ILI J.KK1-1)  ♦KJ  -MSKIIMRI)  80*.  803.  803 

803  112  »  I MR 
IPL  «  IMR 
GO  TO  827 

80*  IMR  =  IMR  -  1 
GO  TO  806 

803  IMR  =  IPL  ♦  1  _  „ 

807  IFI2*ILIJ»KKI-1I  *K  J  -MSKIIMRI)  805.  805.  810 

810  IMR  *  IMR  ♦  1 
GO  TO  807 

827  DVXCKZI  *  DELI  I  I  2) 

GO  TO  832 

828  DVXCKZI-  DILI J.KK) .KJI 

832  DXMCZ-n  -  DVXIKZ-ll*COSIALFILIJ.KKIII-DVXIKZI*SINIALFILIJ.KKI»» 

DXIKZI  «  DVX I KZ- 1 )*SIN I ALF I L I J .KK 1 1 l*DVX IKZ I *COSI ALF I L I J.KK  III 
831  CONTINUE 

DX2  -  DXI2I 
DXI2I  •  DXI3I 
DX( 31  -  DXI5I 
DXISI  «  DX I  *  I 

DXC*I  «  DX2  .  _ 

CALL  MXMULTICDAI 1.1.1  I .DX.  SIGI1. II. 3. 6. II 

KK3  •  1 

IF( I.GE.37.AND.I.LE.122I  KK3  >  2 
SIGI* • 1 1  -  SIGI3.il 

SIGI3.il  *  XNUIKK3 )*IS1GI1»II*SIGI2»III 
SIGMA  MOM  IN  SIGil. I  I  *  TRIANGLE  I 
XOIII  -  0. 

YOIII  -  0. 

DO  8*0  R  -  1.3 
XOI  I 1  ■  XO III  ♦  XILI I.KI I 
YOI  II  ■  you  I  ♦  YILI  I.KI  I 
8*6  CONTINUE" 

XOIII  *  *0111  /  3. 

VOCII  ■  YOU  I  /  3# 

850  CONTINUE 

ENBARX  *  R/*.*ISIGI1 . 3I*SIGI1. 12 I*SIGI1 »2*I*SIGI1 .3*1  I 
!  ♦  I1.-RI/2.  *1  SIGH •** l*SIGI  1  »*9I  I 

ENBARX  ■  1. /ENBARX 
00  860  I >1.632 

860  SIGOUT 1 1 1  •  SI GOUT  I  I l»ENBARX 

I  ■  1 

870  CONTINUE 
PRINT  1000 

1000  FORMAT  1 1M1 «2 1 8HTR I ANGLE .6X .8HCENTR0 ID »9X • 12HVECT0R  SIGMA.10XI/I 

871  CONTINUE 

II  -  1*1 

DO  880  J-l.* 

GO  TO  1873. 87*. 873. 875  I •  J 

873  PRINT  1001.  I.  XOIII.  SIGI J. I  I . 1 1 .XOI 1 1  I .  SIGIJ.III 
GO  TO  878 

87*  PRINT  1002.  VOIII.SIGIJ.il.  VOIIII.  SIGIJ.III 


XILI I.KI I 
YILI I.KI I 
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o  n  n  non  onn 


GO  TO  878 

875  PRINT  1003.  SIGIJ.II.  SIGIJ.H) 

878  CONTINUE 

sen  continue 

LINE  »  LINE  ♦  6 
1*1*2 
PRINT  1004 

1001  FORMAT ( 1H  2  I 5X . 1 3 .F 14 .6 .  7* . E 15 . 8 . 1  OX )) 

100?  FORMA T (  1H  2IBX.F14.6.  7X .E 15 .8 . 1  OX )  ) 

1003  FORMATI1H  2I29X.E15.8.10XI) 

1004  FORMAT! /) 

1069  FORMATI1H  .30X.E15.8) 

IF! I.GT.JTOTAL I  GO  TO  890 
IF  <L 1NE.GT .64 )  GO  TO  87o 
GO  TO  871 
890  CONTINUE 

WRITE  1201  ( S I GOU  Till. 1.1.316)  CASE  1 

PRINT  8787.  ENBARX 

8787  FORMAT  < //23H  NORMALIZATION  FACTOR  *.2X.E15.7) 

RETURN 

END 

2026  CAROS 


PROGRAM  MAIM 
C 

C  this  IS  THE  EXECUTIVE  PROGRAM  USED  WITH  SUBROUTINE  BIGMX  AND  SUBROUTINE 
C  CHLSKY  TO  GENFRATE  AND  SOLVF  LARGE  SYSTFMS  OF  LINFAR  FOUATIONS 

REWIND  20  CASE  2 

CALL  TAPFSKIP 1 20.6.0 ) 

CALL  TAPESXIPI2U.1.-1 
1  CONTINUE 
CALL  INPUT 

NOW  HAVE  ALL  K-PR1MF  AND  CDA  MATRICES 
CALL  CHLSXY 

NOW  HAVE  SOLUTION  U  IN  SP 
CALL  STRESS 

all  STRESSFS  NOW  PRINTED  out 

GO  TO  1 
END 

23  CARDS 
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FUNDAMENTAL  CASE  2 


subroutine  input 

c 

r  TRANSVERSE  NORMAL-  CASE  2 

V 

r 

r  THIS  SUBROUTINE  READS  AND  PRINTS  THE  INPUTS  FOR  THE  PLANAR  FINITE 
C  tLEMtNT  PROC.RAM.  ALL  INPUTS  *’OT  READ  ARE  GENERATED  HIRE  • 

COMMON  / STRSS/  ALFI15S).  M5I2E.  R.  GAMMA.  El.  GII.XNUI2) 
common  /i/  Sd2.32»M  .li?'>('.3)  .r.n?i  .space ( 20 1 

•  NUE I  3.314  1  ,X(  155).Y(155).CDA(3,6,250I 

2  .  KPRI6.6.250) .MSKI  310) ,JTOTAL,N,KREM,M  .  IMR,  IPL 

3  .  PI  1 35.2 1  .0(133.2) 

COMMON /L I M/  LIMlllwI,LIM2llO» 

DIMENSION  SP  I  32  til)  I 

DIMENSION  NUYX 1 230  I .NUXY 1 230 ) .  GXYI250I.  EX(250).  EYI250I 
DIMENSION  BUMPI10)  .  BUMP1I5I 

equivalence  inuf.spi 
equivalence  (C.CPI 

DIMENSION  JL I  T9. 3  I 
DIMENSION  COMENT ( 1 G I 

C 

C  NUYX  »  NUXY.  THIS  MODIFICATION 
EQUIVALENCE  INUXY.NUYXJ 

DIMENSION  THI155I  .  CPI3.3I  .  T 1 1 3 . 3 ,2 ) . T2 I  3 . 3  )  ,0T0( 18) . 

1  T  1 6 *6 1 .KMX (6 .6  I  .  C I  3 • 3 ) . A ( 6 *6 1 2  I .0013 .6  I ,DD(  1 8)  .DTOI 6 .3  I 
EQUIVALENCE  (S.F)  .  (SI901I.VFJ.  < S < 1801) .PH I)  .  <  Si  2701  ) .ER ) 

1  .  (S(300n,EF).IS(3901).NUR) 

2  »  (DO. DO)  .  (DTO.DTO)  .  15(4356). TH) 

3  t  I S 1 451 1 ) .CP  )  .  I  SI  4521  ) . T 1 )  .  I  SI  4541  ) »T2) 

4  .  I S 1 4551  ) . CABC )  .  I S 1 4561  I . T )  .  I SI4621 )  .KMX ) 

5  .  I  SI  4671 ) .A ) 

TYPE  REAL  NUXY 

TYPE  INTEGER  BUMP,  BUMP1 

TYPE  REAL  NUYX,  NUR.  NUF,  KPR ,  KMX 

DATA  IKTOTAL  *  97) 

DATA  I  BUMP*  2.4,7.7.15,1  .9  ,9  .12.-1) 

DATA I  BUMP 1«  5.7. 7. 7.5  )  .  I P I ■  3.1415927) 

DATA  IRAD  «  57.29578) 

DATA  (XLlM*l.E-8) 

DATA  (PK-999.) 

DATA  I  I DDI J J ) » JJ* 1 . 1 8  )  *  0.,  0..  0.,  1..  0*.  0»»  0*.  0.,  1.. 

1  0..  0..  0..  0..  0.,  1*.  0.,  1.*  0.  ) 

DATA  I (DTD! JJ) ,JJ*1 .18)  *  0.,  1.,  0..  0.,  0..  0. ,  0.,  0.,  0.. 

1  0..  0*.  1..  0.,  0.,  1.,  0..  1..  0.) 

DATA! I(JL(I.J)«l*l*79).J*l,3)  < 

1  1.1. 1.2. 2, 3.3, 3, 4, 4, 4, 5.6.7, 7, 8, 8.8.9. 10. 10.11, 11,12. 13. 13* 

2  14.15, 15. 16, 16. 17,1 7. 18,  16, 19.20,23.24 .24.25.25.25, 26, 28,29. 

3  29.30.30.35,21,21  .21.21 <22,22.23 ,23,27,27.27.28. 20,36.46. 37, 

4  47,38,48,39,39,40.41,41,41 ,42,42,43,43, 

5  7.3. 4. 6, 7. 7, 8 ,9. 9, 10. 11, 11,  13, 6, 14, 14. 15. 16, 16, 16, 17, 10, 

6  18 .18, 20.21 ,2 1.21 .22 .15. 23, 23.24. 17.25 .25. 35.27.27. 28. 28.29. 

7  30.30,32,32.33.33,34.36,35,37.38,39,39,40.40,41,41.42.43.43.44, 

8  45, 37, 46, 38, 47. 39, 46, 49, 49,40, 50, 5 1,51, 52, 52, 53. 

9  3.4.5, 7, 3, 8.9.4.1U, 11, 5, 12, 14, 14, 6, 15.16. 9, 10, 17, 18, 18, 12. 

1  19.21,14.15,22.13,23.17,24.25,25.19,26.21 .24.28,25,29.30,26. 

2  31  .29,33.30.34.3!  ,37,37.36.39,22.40.23.41.27,42.43,28.44,32. 

3  46.36.47,37,48,38,49,40,30,50,51.42,32,43.53,44  I 
C 

READ  1000. I COMENT I  I ) ,1*1, 10 1 
1000  FORMAT  1 1C*8  ) 

PRINT  1901, (COMENT! I  )  ,1*1.10) 
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1001  FORMAT!  1M  1.1  'jA8  I 

C  KTOTAL  -  TOTAL  NUMBER  OF  NODES  CONSIDFRED 


C  READ  AND  PRINT 
C 

JTOTAL  *  1 50 

READ  1003*  VF •  GAMMA. El •  XNUI.  BETA 
1003  FORMAT <SE 10. At 

IF  (VF.EO.O.)  GO  TO  930 
PRINT  1018 
PRINT  1016 

PRINT  1017.  VF.  GAMMA.  EI»  XNUI.  BETA 

1016  FORMAT! 1H  .13X.2MVF.  10X.SHGAMMA.  13X.2HEI. 

1017  F0RMATI1M  .51E15.8)) 

1018  FORMAT!////) 


1 1 X . 4MXNU I .  1 1X4HBETA) 


S3  «  SORT  13. I 
S302  *  S3/2. 

El!  *  El  /  GAMMA 

XNUI 1  «  XNUI /BETA 

G 1 1  «  E  I  I / 1 2 •*! 1 •♦XNUI I  I ) 

XNUI 1 1  *  XNUI 

XNUI2I  «  XNUII 

EP!  *  El 

EPJI  »  Eli 

XNUPI  >  XNUI 

XNUPIt  •  XNUII 

EPI  -  E I / I l.-XNU I**2 ) 

EPII  •  EII/ll.-XNUII**2t 

XNUPI  *  XNUI /II. -XNUII 
XNUPI I  «  XNUI I/ll. -XNUI II 
DO  200  I  «  1.97 
THIII  >1. 

ALFIII'O. 

Dll. 11  *  1000. 

DII.2I  ■  1000. 

PII.1I  *  O. 

PII.2I  ■  0. 

200  CONTINUE 
I  ■  0 

DO  201  J*  1*10 
I  .  I  *BUMP I  J 1 
PI  I  .21  *  1000. 

PI98-I.2I  ■  1000. 

DU. 21  *  I* 

DI98-I.2I  *  “I* 

201  CONTINUE 
I  «  0 

DO  202  J  -  1»3 
I  «  !♦  bump i ( j i 
PII.lt  *  1000. 

P 198- 1.1)  *  1000. 

DU. I)  «  0. 

DI98-I.il  *  0. 

202  CONTINUE 

Pll.l)  •  1000. 

PI  1  .2  I  ■  1000. 

DII.lt  ■  °* 
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0>I.2I  •  1. 

4(94.11  •  1000. 

4(94.21  •  1000. 

0(94.1  I  ■  0. 

0(94.21  •  *1. 

4(44.11  •  1000. 

4(44.21  ■  1000. 

0(44.1  I  >  0. 

0(44.21  •  1. 

4(47.11  •  1000. 

4(47.21  «  1000. 

0(47.11  •  0. 

0(47.21  •  -I. 

SQ4T ( 2.*S9*Vf /4| I 
1(11  ■  $902 
7(11  •  .4 
00  210  I ■ 1 .4 

1(1*11  •  $902  -  4/4. •<0$(9I*( 1-1 1/4.1 
7(1*11  •  .9  -  (t/4.  *$IN(4I*(  1-11/4.1 


210  CONTINUC 

c 

00  220  1*1.7 

1(1*91  •  $902  -  4/2.4  COSI 4| 4(1-11/12.1 
7(1*91  •  .4  -  4/2.4  $I4(4|«(1- 11/12.I 

C 

1(1*121  •  $902  -  9.*4/4.4C0$(4|4(  1-1 1/12. • 

7(1*121  •  .9  -  9.44/4.*$IN(4|#(  I-1I/12.I 

C 

1(1*191  •  $902  >44  C0$(4|*( 1-11/12.) 

7(1*191  •  .9  -  4  •  $14(414(1. ll/ll.l 

220  CONTINUC 

1(941  •  $902 
7(941  •  -  .4 
1(911  4  $M» 

7(911  4  (7(24147(1411  /  2. 

1(491  4  .,94  7*4(41/4.1 
7(441  •  .4 

01  4  (l.-4l/(2.4C0$(4|/4.ll 
4(941  4  1(491  *  04 
7(941  •  *9 

1(991  •  111201*1(941 1/2. 

C 

7(191  •  *9 

00  290  I  4  1.4 

|(|449l  •  (4  -114  1(491  /4. 

7(14491  4  U  -!!•  71491  /4. 

290  CONTINUC 

< 

OCLI  •  11441  •11491 
OCL 7  4  7(441-7(491 
00  240  I  4  l.« 

11(4941  •  111*991  *OCL« 

7(1*941  •  7(1*991  *0CL7 
240  CONTINUC 

1(921  •  1(441  *(l(94|.|(44ll/9. 

7(921  •  -.9 

1(991  •  2.4H92 1  -  K44I 
7(J9I  •  -.9 

1(271  •  1(291  ♦  (1(921-1(2911/9. 

7(271  •  7(291  ♦  (7(921-7(2911/9. 

11201  ■  2.n(27|-l(29l 
7(201  •  2.47(271-7(291 
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X  C  I  r  X  I  28  >  *1X131  ) -X I  28  )  )  /  3. 

V  <  2*9  I  *  ¥  (  28  1  *(¥(31  1-VI28)  »/3. 

xnn  *  ?.»x  1 29) -xi  28 » 

Y(3  I  *  2 ••¥ I  29  I -V ( 28  I 

C 

c 

DO  230  I «50  «  9  7 
XI 11  *  -XC9R-I  ) 

VII)  *  -¥198-1  ) 

230  CONTINUE 
C 
C 

C  PRINT  OUT  NODAL  DATA 
I  *  I 

12  continue 

LINE  *  A 
PRINT  1010 

13  CONTINUE 

PRINT  1011.  I.  XII).  ¥l|).  Pll.ll.  Pll.2).  0(1*1).  0(1.21, 

1  Tm( I  1  .  ALEI  I  ) 

I  «  1*1 

IEI I.GT.KTOTAL I  GO  TO  1A 
LINE  «  LINE  ♦  2 
IFILINE.GT.56)  GO  TO  12 
GO  TO  13 
1A  CONTINUE 

1011  FORMAT  1 1H  IA.7I 3XE11.A) .5X.F11.2/I 

1010  FORMAT  I 5H1NODE.7X. INK. 13XtlHY.13X.2HPl.12X.2HP2.12X.2HDl.12X.2HD2. 
1  8X  »  9H  T  H I CKNE SS • 9X  •  5  H  ALPHA  /) 

C 

C  I  -  NUMBER  OF  NOOE 

C  X  -  X-  COORDINATE  OF  I TH  NOOE 

C  V  -  Y-  COORDINATE  OF  ITH  NODE 

C  Pll.ll  *  KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  1  DIRECTION 

C  PI  1. 21  ■  KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  2  DIRECTION 

C  Dll.l)  -  KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  1  DIRECTION 

C  0(1,21  -  KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  2  DIRECTION 

C  AlFIII  -  ANGLE  BETWEEN  X  DIRECTION  AND  1  DIRECTION  (POSITIVE  WHEN 

C  COUNTER-CLOCKWISE) 

C  TH(!I  -  PLATE  THICKNESS  AT  ITH  NODE 
C 

C  GET  MSK  MATRIX 
JP  .  0 

DO  27  J-l.KTOTAL 
00  27  1-1.  2 

IF  IP( J,| I.GT.PK)  GO  TO  27 
JP  ■  JP*I 

MSK  I  JP I  •  2  •  (J-l)  ♦  I 
27  CONTINUF 

C  MSK  IS  MATRIX  OF  INOICES  OF  KNOWN  FORCES 

C  IF  FORCE  P  IS  UNKNOWN,  IT  IS  INPUT  AS  1000. 

C  NOW  READ  IN  TRIANGLE  DATA 

C 

c  jtotal  -  total  number  of  triangles 

DO  19  I  « 1  •  79 
DO  19  J*l ,3 
19  LII.JI  «  JL I I.J) 

00  260  |.  80.138 

DO  260  J«  1.3 

LII.JI  •  98  -  L I  159- I.J) 

260  CONTINUE 

C  LIJ.ll  -  INDEX  OF  THE  FIRST  NOOE  OF  THE  JTH  TRIANGLE 
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1 


C  LIJ.2)  -  INOFX  OF  THF  SECOND  NODE  OF  THE  JTh  TRIANGLE 
C  L ( J*3)  -  INDEX  OF  THE  THIRD  NODE  OF  THE  JTH  TRIANGLE 
C 

DO  20  1*1 « JTOT AL 

IF! I.LE.36.0R.I.GE.123I  GO  TO  300 
EX(  II  «  EPII 
EV( I)  *  EPII 
NUXYdt  *XNUP  1 1 

GXY(I)  *  EPI  1/(2. •( l.+XNUP! I  I  I 
GO  TO  310 
300  EXC I )  *  EPI 
EY( II  *  EPI 
NUXYdl  -  XNUPI 

GXY I I  I  *  EPI  /  (2.*! l.+XNUPI  I  I 
310  CONTINUE 
20  CONTINUE 

r  PRINT  OUT  TRIANGLE  DATA 


LINF  •  A 
PRINT  1012 
DO  2*  1*1 • JTOTAL 
IFILINE.LT. 541  GO  TO  22 
LINE  *  * 

PRINT  1012 

1012  FORMAT  1 1H1.8HTR I ANGLE .4X6HN0DE  1.3X.6MNODE  2.3X.6HNOOE  3.18X.2HEX. 
1  18X  2HE Y • 16X . AHNUVX* 1TX * 3HGX Y// I 

22  LINE  «  LINE*2 

24  PRINT  1023*  I*  (L( I.JI .J*1.3! .EX< I I.EY!  I  I.NUYXtl I  .GXV! 1 1 
1023  F0RMATI1H  .3X.I3.7X *13. 21 6X .131*41 3X.E13.8I/I 

C 

c 


MSIZE  * 

196 

KREM  • 

6 

N  •  23 

M  «  MSIZE 

/  N 

IF  1 KREM 

.NE 

•  N  I 

LIMlill 

• 

1 

LIM1I2) 

■ 

1 

LIM113I 

■ 

1 

LIM114I 

• 

1 

LIM1I3I 

• 

1 

LIM1I6I 

■ 

1 

LIMUTI 

a 

1 

L  1*421 1 1 

a 

138 

LIM2I2I 

a 

198 

LIM2I3I 

a 

198 

LIM2I4I 

a 

198 

LIM2I3I 

a 

198 

LIM2I6I 

a 

148 

LIM21TI 

a 

198 

c 

C  PRINT  OUT  PARTITION  INFORMATION 
PRINT  1008 

1008  FORMAT!  1H1.12X.20MTRIANGLES  CONSIDERED! 

DO  31  1*1 .M 

ISI2E  •  N 

IFII.EO.il  ISI2E  •  KREM 
PRINT  1009.  1.LIM1III.L I M2 1  II.  I  SIZE 
31  CONTINUE 

1009  F0RMATI10H  PARTITI0N.6X  SHF  IRST  *2X  .2HT0.2X  .4HLAST  •  4X.9H0IMENSI0M/ 

1  4X.I3.11X.I3.6X.I3.10X.I3I 
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t 


o  o  non  n  o 


DO  28  I  *  1.KT0TAL 
ALF ( I )  *  ALF 1  I ) /RAD 
?H  CONTINUE 

C  ALL  ANGLES  NOW  IN  RADIANS 
DO  *00  1=1.  jtotal 
Cl  IS  A  TRIANGLE  COUNTER 
Bll  ■  l./EXIII 
Bl?  =  -NUYXt I )  /  EYI I ) 

B22  «  1.  /  E Y ( I ) 

035  =  1.  /  GXY< I t 

delta  =  Bl 1*B22  -012**2 
CPI  2.1)  *  -  B12  /  DELTA 

CPI  1 .1  I  *  B22  /  DELTA 
CPI  3.1)  *  0. 

CPI  1 .2 1  *  CPI  2  » I  ) 

CPI  2.2  )  *  611/  DELTA 

CPI3.2I  *  0. 

CPI  1 .3 1  *  0. 

CPI?. 31  *  0. 

CPI  3.3 1  »  1./B33 

C  NOW  IN  C 1 3.3 1  .  MATRIX  I 

30  CONTINUE 

THOMEG  «  XILI I .211*YIL( I .31)  *X I L (I . 1 1 1 *Y IL I  I .2 1 1 

1  ♦  YILtI.ll>*XtL(l.3)l  -XIHI«3I)*YIL(I.2)1 

2  -  XILI I .1 1 )*Y(LI I .3 1 1  -YILI I.1))*XILI I .21  I 
THOMEG* I TMI L  II»1))*THILII«?) l*THI L (1.31)1/  6.  *  TMOMFG 
X 12  *  XILI 1.2) I-  XILI I.l I  1 
X 13  •  XILI 1*3) 1  —  XILI 1.1)1 
ETA2*  YILI  1.2)  )—  YILII.D) 

ETA3*  YILI 1.3) )—  YILII.l)) 

DELTA  »  X 1 2*ETA3  -  XI3*ETA2 
DO  38  II  •  1.3 
DO  38  JJ  *  1.3 
All  1*3. JJ. 1 )  =  0. 

A 1 1 1 . JJ*3 .11  *  0. 

All  1*3. JJ. 2)  «  0. 

A 1 1 1 • JJ*3 .2 )  *  0. 

38  CONTINUE 
All. 1.1)  -  1. 

AI2.1.1)  •  -IETA3-ETA?)  /  DELTA 
AI3.1.1)  *  1X13  -  X 1 2 )  /  DELTA 
All .2.1 )  «  O. 

A 1 2  .2 . 1 )  »  ETA3  /  DELTA 
AI3.2.1)  «  -XI3  /  DELTA 
All. 3.1)  ■  0. 

AI2.3.1)  *  -ETA2  /  DELTA 
AI3.3.1 1  ■  X  1 2  /  DELTA 
DO  39  II  *  1.3 
DO  39  JJ  *  1.3 
A 1 1 1 *3 . JJ*3 • 1 1  *  AIII.JJ.il 
A I  1 1 • JJ.2 )  •  AIJJ.II.il 
A! I I*3.JJ*3.2)  *  AIJJ.II.il 

39  CONTINUE 

TRANSPOSE  OF  INVERSE  OF  A  NOW  IN  All.1.2)  .  A  INVERSE  STILL  IN  A 

CALL  MXMULTIDO.A.KMXI 1 .1 ) .3.6.6) 

CALL  MXMULTIC.XMXI 1.1 )  .CDAl 1.1 •! | .3.3.6) 

PRODUCT  C*D*I A**— 1 1  NOW  IN  CDAI1.1.I).  I TH  TRIANGLE 
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no  r»  n  r» 


CALL  MXMULT ( A( 1 • 1.2  I .DTO.A.6.6.3 1 
CALL  MXCONlA.KPRIl  •  1  •  I  )  *  THOMEG  .6.3) 

CALL  KXKULTI KPR  I 1 »1 « I > »CDAI 1 .1 »  I  )  «KMX  >6 .3.6 I 


MATRIX  MI) 

NOW  IN  KMX.  TRIANGLE 

DO  40  II 

=  1.6 

DO  40  JJ 

=  1.6 

T  t II. JJ) 

=  0. 

40  CONTINUE 

Td.ll 

=  COSI ALFILI I .1) 1 ) 

T  ( 4 . 1 ) 

«  S INC ALFILI I .1 1 » ) 

T12.2) 

=  COSI ALFILI I .2) > 1 

TI5.2) 

•  SINIALFILI 1.2) > ) 

TI3.3J 

•  COSI ALFILII. 3111 

T  (6 . 3  ) 

•  SINIALFILI 1.31) I 

Til. 4) 

»  -T 14.1) 

TI4.4) 

«  Tll.l) 

TI2.5) 

=  -TI5.2) 

TI5.5) 

>  T 1 2.2  I 

TI3.6) 

>  -T 1 6.31 

T 16 .61 

=  TI3.3) 

CALL  MXMULT  1  KMX .T .*,.6.6 .6 ) 

TC4.1I  ■ 

-  TI4.1I 

TC5.2I  * 

-  TI5.2I 

TI6.3I  “ 

-  TI6.3I 

T 1 1 ,4 1  • 

-  Til. 4  I 

TI2.5I  » 

-  TI2.5I 

TI3.6I  « 

-  TI3.6I 

INVERSE  OF  T  NOW  IN  T 

CALL  MX MULT  I T «A »KPR I i • 1  *  1 1 .6.6.6 » 

X— PRIME  NOW  IN  KPR  »  *  MAS  BEEN  CLOBBERED. 

400  CONTINUE 
RETURN 

800  PRINT  10SltII.JJ.il 

1051  FORMAT ( 1H1 .  5M  EF ( .I3.1H.I 3 .7MI  =  ERI.13.6HI  *  0.) 

STOP 

900  CONTINUE 

PRINT  1050  .  J 

1050  FORMAT  1 1M1  35HCOULD  NOT  INVERT  MATRIX  T 1 .TR I ANGLE . 1 3 ) 

950  CONTINUE 
REWIND  20 
STOP 
END 


CASE  2 
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n  n  r\  o  n  o 


SUBPOUT 1NE  STRESS 


STRESS  SUBROUTINE  CASE  2 


THIS  SUBROUTINE  DERIVES  AND  PRINTS  STRESSES 

COMMON  /STRSS/  ALFI1SS).  MSI2E.  R.  GAMMA,  El*  GII.XNUI2) 

COMMON  n/  S( 32 .32.S ) .L ( 3O0.3 ) ,G( 3? > .SPACE ( 20 ) 

1  .  NUF I 3.31A I  ,X< 1SS I «V( 1SS I «CDAt 3.6.2S0) 

2  ,  APR  I  6 ,6,250  I  »  MSA  I  310  I  .JTOT  AL  ,N  ,  ARE'M  ,M  ,  I  MR  ,  IPL 

3  .  PI1SS.2I  ,01155.2) 

COMMON/LIM/  L IM1 ! 10) .LIM2! 10) 

DIMENSION  DVXI6).  SIG0UTI632) 

DIMENSION  SPI32.10) 

ECXJ  I  VALENCE!  S.  SI  GOUT  )  .  I  NUF  ,  SP  ) 

Type  REAL  APR 

EQUIVALENCE  (S.SIG)  .  I S I  93 1 ) .PSTR I  .  ! S (  186 1 ) ,X0 ) , ! S ( 2 1 6 1 ) . YO ) 
EQUIVALENCE  <S( 2*61 > .DEL >  ,  (SI2761I.DX) 

DIMENSION  ERR! 310) 

DIMENSION  DX16)  .  S I G ( * , 1 68  I  .  PSTPI3.310) 

DIMENSION  XOOOOt  .  Y0I30C).  DEL  I  3 1 C  ) 

DIMENSION  AS22I32.96) 

EQUIVALENCE  (APR.AS22) 

TYPE  REAL  AS22 
DATA  !PA*999.) 

C  REMOVE  GAPS  FROM  SPI32.10)  =  DEL1310) 

DO  5  J*1.AREM 
DEL  ID)  *  SPIJ.1I 
5  CONTINUE 

ALOC  *  AREM  -N 
DO  10  I  *  2.M 
ALOC  =  XLOC  ♦  N 
DO  10  J  =  l.N 
DELIALOC*J)  «  SPIJ.I) 

10  CONTINUE 
PRINT  1010 

1010  FORMAT! 1M1 .SOX , 1 3MD I SPLACEMENTS ,/ / I 
NDEL  «  MSIZE/7 

jcnt  •  0 

DO  IS  J*1.NDEL 

JCNT  *  JCNT  ♦  1 

IF! JCNT. LE. 18)  GO  TO  1* 

PRINT  1010 
JCNT  »  0 

1*  JFIR  *  7*tJ-l)  ♦  1 
JL AST  *  JFIR  ♦  6 
PRINT  1011  .  ia.a.jfir.jlast ( 

1011  F0RMAT11H  . 7 1 8  X . AHDE L I ♦ I  3  » 1 H )  )) 

PRINT  1012.  1DEL(A).A=JFIR.JLAST) 

1012  FORMAT  I 1H  .7I2X.E14.7) /* 

IS  CONTINUE 

LOCI  »  7  *NDE  L ♦ 1 
LOC 2  *  MSI2E 

IFIL0C1.GT.L0C2)  GO  TO  20 
PRINT  1 01 1 • ! A , A=LOC 1 ,LOC  2 ) 

PRINT  1012.  1  DEL  I A ) .A*LOC 1 «L0C2 ) 

20  CONTINUE 

DO  8SS  1=1, JTOT AL 
J  *  I 
AZ  «  0 

DO  831  AA  *1.3 
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DO  812  KJ  -1*? 

KZ  •  K  ♦  1 

I F I  PI  '  J.KK I.KJI.GT.PK)  GO  TO  828 
IEI2«'MJ.KK)-1  I4.KJ-MSICI  IPLJI  801.  80?.  801 

802  112  ■  1PL 
GO  TO  827 

801  I NR  ■  IPL  -  1 

806  IFt2«ILI J.KK  )-l  I  *KJ  -MSKIINR))  80*.  801.  805 
801  112  «  INR 

I  PL  »  INR 
GO  TO  827 
80*  INR  ■  INR  -  1 
GOl  TO  806 

803  INR  «  IPL  ♦  1 

807  IFI2«MLI J.MC  1-1  »  *KJ  -NSKIINRII  805.  805.  810 
810  INR  -  INR  ♦  1 

GO  TO  807 

827  OVXIKZl  ■  DEL (I  I?) 

GO  TO  812 

828  OVXIKZl-  OIL  <  J.KK ) »KJ  I 
812  CONTINUE 

DXIKZ-l)  ■  DVXIKZ-l )*COSIALFILI J.KK) I J-DVX 1 1 Z 1 *S I N I ALE I L I J.KK ) ) I 
0X1 KZ I  •  DVX I  KZ  - 1 >*SINIALFILIJ.KKI 1 1 4DVX I K  Z )*COStALFIL(J«KK) II 
831  CONTINUE 
0X2  ■  0X121 
0X12)  «  0X111 
0X11)  *  DX 1 5  ) 

0X151  ■  DX I  * ) 

0X14)  *  0X2 

CALL  NXNULTICOAI 1.1. I  l.OX.  SIGtl. I). 3.6.1) 

KK3  «  1 

IFII.GE.37.AND.1.LE.122I  KK3  >  2 
SIGI4.il  -  SIGI1.II 

SIGI3.il  -  XNU(KK3l*fSIG(l.ll«SIGt?,ll) 

C  SIGNA  NOW  IN  SIGH.  1 1  .  TRIANGLE  I 

KOI  1 1  -  0. 

roin  -  o. 

DO  840  K  -  1.3 

XOIII  ■  XOt!)  ♦  XILtl.KI) 

YOI II  ■  TO! I  1  ♦  VILI I.KI I 
840  CONTINUE 

XOIII  ■  XOI I )  /  3, 

YOU  1  ■  YOI  I)  /  3. 

850  CONTINUE 
855  CONTINUE 

ENBARY  «  R/4.*(SIG(2,1)+SI(i(2«4)4SIG(  2,13  1+310(2.25  1 1 

1  *1X1 20 1 -XI 351 )*ISIG<2,37I+SIG(2,50) I 

2  *1X1 36  I -X 1451 1* ( SIGI2.6* l+SIGI 2,801 1 

3  *  I XI 54 1 -XI 6* I )/3.«MSIG<2,96)+SlG<2.111 l  +  SIGI 2.1 13  I I 
ENBARY  ■  SORT  I  3.) /ENBARY 

DO  860  I«1 .632 

860  SIGOUT I  I )  «  SIGOUTI I |*ENBARY 

I  «  1 

870  CONTINUE 
PRINT  1000 
LINE  -  3 

1000  FORMAT  1 1H1 .2 1 8HTRIANGLE .6X.8HCENTR01D.9X . 12HVECT0R  SIGNA, 10X)/) 

871  CONTINUE 

II  -  1  +  1 

00  880  J»1.4 

GO  TO  1873.874,875*875),  J 

873  PRINT  1001*  I,  XOIII.  SIGi  J. 1 1 • 1 1 ,XOI 1 1  I ,  SlGIJ.lt) 
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voi 1 1 ) *  SIGt J.l 1 ) 


GO  TO  878 

87*  PRINT  1002.  VO  I  I  I  •  & IGl J • I  I . 

GO  TO  878 

8  78  PRINT  10C1.  S I G  C  J « I  )  •  MGIJ.Ul 
978  CONTINUE 
880  CONTINUE 

LINE  ■  LINE  ♦  6 
I  -  !♦  2 
PRINT  100* 

1001  FORMAT  C 1H  2 1  9X  .  1 1 .F 1*.6 .  7X  .E 1 9 .8  *  1  OX  1 1 

1002  FORMAT  I 1H  2I8X.F1*. 6.  7X.E19.8.10XI  I 
1 009  FORMAT ( IN  2 < 29X . E 1 8 . 8 . 1  OX  I  I 

100*  ‘•  •4ATI/I 

1069  FORMATIlH  .10X.E19.8I 

IF l I.GT.JTOTAU  GO  TO  890 
IF  ILINE.GT.9AI  GO  TO  870 
GO  TO  871 
890  CONTINUE 

WRITE  (201  (SIGOUTUI. 1-1. 1161  CASE  2 

PRINT  8787.  EN8ARV 

8787  FORMAT  I //21M  NORMAL  1 2 AT  ION  FACTOR  ..2X.E19.7l 
RETURN  f 

END 


C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  MAIN 

THIS  IS  THE  EXECUTIVE  PROGRAM  USEO  WITH  SUBROUTINE  BIUMX  AND  SUBROUTINE 
CHLSKV  TO  GENERATE  ANu  SOLVE  LAWGf  SYSTEMS  OF  L INI AR  EOUATIONS 

REWIND  20  CASE  6 

CALL  TAPESXIPC20.6.JI 
CALL  T APE SK I P I  20  » 1 »  >  I 
1  CONTINUE 
CALL  INPUT 

NOW  HAVE  ALL  K-PRIME  ANU  CDA  MATRICES 


CALL  CMLSKY 

NOW  HAVE  SOLUTION  U  IN  SP 


CALL  STRESS 

all  stresses  now  printed  out 

GO  TO  1 

22  CARDS 
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U  U  C  o  U  KJ 


SUBROUTINE  INPUT 
TRANSVERSE  SMEAR  CASE  6 


THIS  SUBROUTINE  REAOS  AND  PRINTS  THE  INPUTS  FOR  THE  PLANAR  FINITE 

element  program,  all  inputs  not  read  are  generated  herf. 

COMMON  /STRSS/  ALFIIS5).  MSI2E.  R.  GAMMA.  El.  G!t,XNU<2) 

COMMON  /l/  S( 32.32.5 > ,L( 300.3 ) ,G( 32) .SPACE (20 ) 

1  .  NUF (3.314)  ,X(155),Y(155) .CD A ( 3 .6 .250 ) 

2  .  KPR (6.6.250) .MSX( 310) .J TOTAL .N  ,  KREM ,M  ,  IMP.  IPL 

3  .  PI155.2)  .DH55.2I 

COMMON/LIM/  LIM1 ( 10) .LIM2( 10) 

DIMENSION  SP ( 32  » 1 0 ) 

DIMENSION  NUYX(250) ,NUXY)250),  GXY ( 250 )  .  EX1250),  EYI250) 

dimension  bump (10)  «  bump i  1 5 ) 

EQUIVALENCE  1NUF.SP) 

EQUIVALENCE  (C.CP) 

OIMENSION  JLI79.3) 

DIMENSION  COMENTt 10) 

NUYX  *  NUXY,  THIS  MODIFICATION 
EQUIVALENCE  (NUXY. NUYX) 

DIMENSION  TH (155)  .  CP(3.3)  .  T 1 ( 3 . 3 .2 ) . T2 ( 3 . 3 ) .DTD ( 1 8 ) . 

1  T (6.6) .KMX (6.6) •  C ( 3. 3 ) . A ( 6 .6 .2  I .DO > 3 .6 ) .DD( 18 ) ,DT0(6.3 ) 
EQUIVALENCE  (S.F)  .  ( S ( 901 ) . VF ) •  ( S < 180 1 ) .PH I ) , ( S ( 2701 ) . ER ) 

1  •  IS( 3001 ),EF).(S( 3901 ).NUR) 

2  •  (DO. DO)  .  (DTD. DTD)  .  ($(4356). TH> 

3  .  (S(ASU).CP)  .  (  S  (  4321 )  *  T 1  )  .  (S(4541),T?> 

A  .  ( S ( *59 1 ) »CABC )  .  ( S( 4581 ) »T )  »  ( S)462 1 ) .KMX > 

5  .  ( S ( 4671 ) • A ) 

TYPE  REAL  NUXY 

TYPE  INTEGER  BUMP,  BUMP1  , 

type  real  nuvx.  nur.  nuf,  kpr,  kmx 

DATA  (KTOTAL  =*  97) 

dat a ( bump*  2. 4, 7. 7. is. i  .9  .9  ,12.-1) 

DAT  A ( BUMP1 *  5.7.7.7.S  )  ,(PI*  3.1415927) 

DATA  (RAD  *  57.29578) 

DATA  ( XL  IM» 1 .E-8 ) 

DATA  ( PK*999» ) 

DATA  ( ( DD( JJ ) »JJ*1 , 18 )  *  0..  0.,  0. *  1.,  0.,  0.,  0.,  0..  1., 

1  0..  0..  0..  0..  0..  1.,  0..  1..  0.  ) 

DATA  ( (DTD( JJ) ,JJ*1 ,13 )  =  0*.  1..  0..  0. .  0. .  o.,  0.,  0.,  o.» 

1  0..  0.,  1..  0.,  0.,  1.,  0.,  1.,  0.) 
DATA)) (JL(I.J). 1-1,79). J«l. 3)  * 

1  1.1. 1,2.2, 3, 3. 3. 4, 4, 4, 5. 6,7, 7, 8, 8. 8.9. 10.10, 11, 11, 12, 13. 13. 

2  14, 15. 15. 16. 16. 17. 17. 18, 18, 19. 20. 23. 24. 24 ,25. 25. 25. 26. 28, 29, 

3  29. 30, 30, 35. 21 .21 .21 .21 .22 .22 .23 .23.27.27.27,28.28 .36.46 .37 . 

4  47, 38. 48, 39. 39. 4 J .41. 4 1.41 .42. 42. 43. 43, 

5  2, 3. 4, 6, 7. 7. 8,9.9, 10, 11 ,11, 13. 6, 14, 14, 15,16, 16, 16, 17, 10. 

6  18. 18, 2u,21,21, 21.22, 15, 23, 23. 24, 17, 25, 25, 35, 27, 27, 28, 28, 29, 

7  30,30,32,32 ,33 ,33 ,34. 36 ,35 ,37 , 38 .39,39.40,40,41 .41 .42 .43 ,43 . 44 . 

8  45.37,46.38.47,39,48.49.49,40.50,51.51,52.52,53. 

9  3,4. 5, 7. 3. 8, 9. 4, 10. 11. 5,12. 14, 14. 8.15. 16, 9. 10, 17,18. 18, 12. 

1  19. 21, 14. 15. 22.23, 23. 17. 24, 25. 25. 19, 26 .21, 24 .28, 25. 29. 30. 26, 

2  31. 29, 33, 30, 34.31, 37, 37, 38, 39, 22, 40, 23, 41, 27, 42, 43 .28. 44, 32, 

3  46 .36,47 ,37 ,48 .38 ,49,40,50,50,51 ,42,52 ,43 ,53,44  ) 

READ  1000. ( COMEN T ( I ) . I • 1 ,10 ) 

1000  FORMAT ( 10A8 ) 

PRINT  1 001 , ( COME NT ( I ) , I >1 , 10 ) 
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X  CIO  1  FORMAT! 1H1 . 1 0A8 I 


C  KTOTAL  -  TOTAL  number  of  modes  considered 

c 

c 

C  RF AD  and  PRINT 

c 

J  TOT  AL  =  ISO 

READ  1003.  VF.  GAMMA. El.  XNUI.  BETA 
1003  FORMAT (SE10. 4) 

IF  ( VF.EQ.u. |  GO  TO  9S0 
PRINT  1018 
PRINT  1016 

PRINT  1017.  VF.  GAMMA.  El.  XNUI.  BETA 

1016  FORMATI1H  .13X.2HVF.  1CX.SHGAMMA.  13X.2HEI.  11X.4HXNUI.  11X4HBETA) 

1017  FORMATI1H  .SIE1S.8!) 

1018  FORMAT!////) 

S3  =  SORTI3.) 

S302  *  S3/2. 

E  I  I  -  El  /  GAMMA 

XNUII  *  XNUI/BETA 

GII  *  E  I  I / ( 2 . • ( 1 .♦XNUII ) ) 

XNU(l)  *  XNUI 
XNUI2I  *  XNUII 
C 

EPI  =  El 

EPI I  *  Eli 

XNUPI  -  XNUI 

XNUPIt  *  XNUII 

EPI  «  El/Cl. -XNUl*»2) 

EPI I  *  El  I /( l.-XNUI l«»2l 
C 

XNUPI  =  XNUI / I  1 .-XNUI  ) 

XNUPII  •  XNUI I/( l.-XNUI I  1 
DO  200  I  *  1.97 
TMIII  >1. 

ALE ( I )«0. 

0(1. 1)  ■  1000. 

0(1.21  «  1000. 

P(  1  .1)  *  0. 

P(  I  .2  )  »  0. 

200  continue 
1*0 

00  201  J*  1.10 
I  *  I  ♦BUMP(J) 

01  I .1 )  *  o. 

0(98-1.1)  *  0. 

P(I.l)  *  1000. 

P(98-I .1 )  =  1000. 

201  CONTINUE 
I  *  0 

DO  202  J  *  1.6 

I  *  I ♦  BUMP  1 1 J ) 

D<  I  .2)  =  1. 

0(98-1. 21  *  -1. 

P I  1.2)  *  1000. 

P ( 98— I . 2 )  =  1000. 

202  CONTINUE 

D ( 1 .  1  >  *  O. 

D (  1.2)  *  1  . 

P(l.l)  *  1G0C. 
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PI1.2)  *  1000. 

0(34*1)  *  0. 

0(34*?)  *  1. 

PI34.1)  *  1000. 

P(34.2)  *  1000. 

0(64*1)  *  0. 

0(64*2)  *  -1* 

P  (64  *  1  I  *  1000. 

P(64 • 2 )  >  1000. 

0(97*1)  *  0. 

0(97.2)  =  -1. 

PI97.1I  *  1000. 

P(97*2)  ■  10o0. 

P  I  64*  2 )  -  1000. 

R.  SORT (2**S3*VF/P| ) 

X ( 1 )  -  S302 
Y(1 )  »  .9 
00  210  1-1.4 

Xtl-1)  ■  $302  -  R/4.»C0S(PI*(  1-1  )  /6. I 
VIIMI  ■  .9  -  R/4.  •SIN(PI«(!-l)/6.) 

210  CONTINUE 
C 

00  220  1-1.7 

XI 1*31  »  $302  -  R/2.«  C0S(PI»(  1-1 )/12. . 
¥!!♦»)  ■  *9  -  R/2.»  SINI PI  •  (  1-1  )/12.) 

C 

XI 1-12  I  -  $302  -  3.-R/4.*C0S(PI* ( 1-1 1/12.1 

VI 1  +  12  I  •  .9  -  3.PR/4.*SINIP|*I 1-1 1/12,  ) 

C 

XI 1-19)  >  $302  -  R  *  CO$IPI*(  1-1 1/12.) 
Yll«19)  •  .3  -  R  •  SINIPI •( 1-1 1/12* ) 

220  CONTINUE 

XI 34 1  -  $302 
VI 3* I  -  -  .T 
XI 31 1  •  $302 

VI 31 1  ■  IVI26I-VI34I )  /  2* 

XI 43)  •  -.$•  TAN  IP  I /6. I 
VI43I  •  .9 

DX  •  1 1 ,-R ) / I 2.*C0$ IP  I /6* ) ) 

XI 36 )  •  XI 49  I  ♦  OX 
VI36I  •  .9 

X I  39  I  •  (XI20I-XI 36) 1/2. 

VI33I  •  .9 

C 

00  230  I  •  1.4 

XII 449  I  -  14  >1  I*  X  1 49  I  /4. 

VI  1 449 1  •  14  -II*  VI49I  /4. 

230  CONTINUE 

C 

Of L X  •  XI 46 1  -XI49I 
OCLV  •  VI 46 ) -V 149  I 
00  240  I  •  1.6 
XII436I  •  XI  1*391  ♦ JtL* 

VI 1 436 )  •  VI |4J9 1  *UCtV 
240  CONTINUE 

XI32I  *  X  1 44  I  -1X134  I -XI 44 11/3. 

VI32I  •  -.9 

XI 33 1  •  2.*XI 321  -  X 1 44 1 
VI33I  •  -.9 

XI2TI  -  XI23I  ♦  IXI  321-1123)  1/3. 

VI2TI  •  VI23)  ♦  IVI 32I-VI23)  1/3. 

XI26I  -  2.#X 1 27 ) -XI 23 ) 
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« 


n  r»  r\  o  ^ 


v  1 2  a » 

X  (  291 
V  (  29  I 
X  (  3  0  1 

mo 


2.»Y  I  2  7 I -v( 23 ) 

X<  28  )  ♦  (  X  nn-X  (  28  )  )  /3. 
v(  2fn  ♦(  v  i  x  i  >-y<  28  n  /3. 
2 • »x ( 29  I -X ( 2fl ) 

2.»Y ( 29)-v<  2R I 


00  240  1=60,97 
XII)  *  -XI98-I  I 
YII)  *  -YI98-I) 
240  CONTINUE 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


PRINT  OUT  NODAL  DATA 
I  »  l 

1?  CONTINUE 
LINE  *  A 
PRINT  1010 
11  CONTINUE 

PRINT  1011*  It  XII).  VII).  Pll.l).  P I  I .2 ) .  01  1.1).  0(1.2). 

1  TMI I ) ,  ALFI I ) 

I  •  !♦! 

I  F I  I «GT .X  TOTAL )  GO  TO  1* 

LINE  ■  LINE  ♦  2 
IFILINE.GT.46)  GO  TO  12 
GO  TO  13 
16  CONTINUE 

1011  FORMATUH  16.71 3XE11.6) .4X.F11.2/1 

1010  FORMAT  I 4N1N00E. 7X. 1MX. 13X. 1MY, 13X. 2HP 1 .12X.2NP2.12X.2N01.12X.2H02. 
1  8X .9MTMI CANE SS.9X .4HALPHA  /> 


I 

X 

Y 

Pll.l) 
PI  I .2) 
01  I .1) 
011.21 
ALFI  I ) 

TNI  I  ) 


NUMBER  OF  NODE 
X-  COORDINATE  OF  1 TM  NODE 
Y-  COORDINATE  OF  I TM  NOOE 

KNOWN  AND  UNKNOWN  FORCF  COMPONENTS  ALOKG  l  01  RFC T I  ON 
KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  2  DIRECTION 
KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  1  DIRECTION 
KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  2  DIRECTION 
ANGLE  BETWEEN  X  DIRECTION  AND  1  DIRECTION  (POSITIVE  WHEN 
COUNTER-CLOCKWISE ) 

plate  thickness  at  ith  node 


get  msk  matrix 

JP  •  0 

DO  27  J.l.KTOTAL 
DO  27  I>1.  2 

IF  IP!  J.M.GT.PKI  GO  TO  27 
JP  ■  JP*1 

MSK  UP)  -  2  •  IJ-ll  ♦  I 
27  CONTINUE 

MSK  IS  MATRIX  OF  INDICES  OF  KNOWN  FORCES 
IF  FORCE  P  IS  UNKNOWN.  IT  IS  INPUT  AS  1000. 
NOW  READ  IN  TRIANGLE  DATA 


JTOTAL  -  TOTAL  NUMBER  OF  TRIANGLES 
DO  19  I « 1 »  79 
DO  19  J*  1 . 3 
19  LI  I .J)  •  JLI  I .J) 

DO  260  l>  80.148 

DO  260  J«  1.3 

LI  I .J)  »  98  -  LI  149-1 .J) 

260  CONTINUE 
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n  n  ri  n  ri 


C  L(J.l)  -  INDEX  CF  T Ht  FIRST  NODE  OF  THE  JTH  TRIANGLE 

C  L  ( J  •  2 )  -  INDEX  OF  T  Ht  StCONU  NODE  OF  THE  JTH  TRIANGLE 

C  LIJ.3)  -  INDEX  OF  THt  THIRD  NODE  OF  THE  JTH  TRIANGLE 

C 

DO  20  1  =  1 .JTOT AL 

IF<  I.LE.36.0R.I.C.E.123)  GO  TO  300 
EX(!)  =  EPII 
EY< I )  =  EPII 
NUXYII)  =XNUPII 

GXYIII  =  EPI  I/I2.*(  1.+XNUP1  in 
GO  TO  310 
300  EXI 1 1  =  EPI 
EY( I)  =  EPI 
NUXYII)  =  XNUPI 

GXYCI)  *  EPI  /  I  2  •  *  I  1  •  +-XNUP  I  )  ) 

310  CONTINUE 
20  CONTINUE 

C  PRINT  OUT  TRIANGLE  DATA 
LINE  =  A 
PRINT  1012 
DO  24  I=1.JT0TAL 
IFILINE.LT. 54)  GO  TO  22 
LINE  *  4 
PRINT  1012 

1012  FORMAT! 1H1 .8HTR1 ANGLE .4X6HN0UE  1.3X.6HNOOE  2.3X.6HNODE  3.18X.2HEX. 
1  18X  2HE Y . 16X .4HNUYX . 1 7X . 3H6XY /  /  ) 

22  LINE  =  LINE+2 

24  PRINT  1023*  I.  (LI I.J).J  =  1.3).EX(  I).EY< I ) .NUYX I  I ) »GXY ( I ) 

1023  FORMAT < 1H  .5X *  1 3 .7X • 1 3 .2 16X *  1 3 ) .4 C 5X .C15 .8 ) / ) 


MSIZE  =  156 
KREM  *  6 
N  »  25 

M  =  MSIZE  /  N 
IFIKREM.NE.N)  M  =  MM 

LIMl(l)  «  1 
LIM1I2)  «  1 
LIM1C3)  =  1 
LIM1I4)  >  1 
LIM1I5)  =  1 
LIM1I6)  =  1 
LIM1C7)  =  1 
LIM2I1)  «  158 
LIM2I2I  •  158 
LIM2I3I  -  158 
LIM2I4)  *  158 
LIM2I5)  *  158 
LIM2I6)  =  158 
LIM2I7)  =  158 


PRINT  OUT  PARTITION  INFORMATION 
PRINT  1008 

1008  FORMAT! 1H1 • 12X .20HTR I  ANGLES  CONSIDERED) 

DO  31  IM.M 

ISIZE  <  N 

IF! I.EO.l)  ISIZE  =  KREM 
PRINT  1009.  I tLIMl ( I ).LIM2I I ) .  ISIZE 
31  CONTINUE 

1009  FORMAT! 10H  PARTITION. 6X  5HF I RST  <2X.2HTO.2X .4HLAST .  6X .9H0 IMENS I  ON/ 
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i  <.x ,  1 3, 1 1 x.  n«*x .  Mi iox. m 
DO  ?8  I  »  1 .XTOTAL 
ALF  (It  -  ALF  (  I  l/RAU 
28  CONT I  Nut 

ALL  ANGLES  NOW  IN  RADIANS 
DO  ADC  1*1.  JTOTAl 
I  IS  A  TRIANGLE  COUNTER 
t*  1 1  *  1 .  /E  X  (  I  t 
B 12  *  -NUVX lit  /  Erill 
B 22  <  1.  /  Evil) 

B33  *  1.  /  GX V I  I  t 
DELIA  *  bll*tt22  -B12««2 
CPI2.lt  *  -  B12  /  DELI* 

CPll.lt  «  B22  /  DELTA 

CPM.lt  «  0. 

CPI  1.2  I  «  CPI2.lt 
CPI2.21  *  811/  DELTA 

CPI  3.2 1  «  0. 

CPI  1 . 3  )  *  0. 

CPI  2.31  ■  0. 

CPI  3.31  ■  1./B33 

C  NON  IN  03.31  •  MATRIX  I 


30 


CONTINUE 

THOMEG  •  XI  LI  I .21 >»T ILI  1.31  »  ♦XILt J.lll«riLl I.2II 

1  ♦  VIH  1.1  >  t»XILI  1.311  -XILII.3))*YILII.2I) 

2  -  XILI  I.11)»TILII.3II  -VILI I .1  I )»XIL(  I  .21  t 
THOMEG* ITHIL1  I  .1  I  I ♦ TMI L I 1.21  1  ♦  TM I L  I  1.31  I  1/  6*  •  THOMEG 
X  12  «  XIU  I  .21 1-  XILI  1.1  It 

X  1 3  ■  XILI 1.31  I-  XILI I. Ill 
ETA2-  VILI 1.211-  VILI I. Ill 
VILI  1.1)1 
-  X | 3»£TA2 


ETA3« 

delta 

DO  )• 
DO  3« 


YILI 1.211- 
VILI  1.311- 
•  XI2*ETAJ 
II  ■  1.3 
JJ  >  1.3 


AIIIO.JJ.il  ■  0. 
AIII.JJA3.II  •  0. 
AIIIA3.JJ.2I  >  0. 
Al  I1.JJa3.2I  •  0. 


30  CONTINUE 

All.  1.11 

■ 

1. 

AI2.1.1 1 

9 

-IETA3-ETA2I 

AI3.1.1  1 

9 

IXI3  -  X 1 2 1  / 

Al 1 .2.1  1 

9 

0. 

AI2.2.1  t 

9 

F  TAJ  /  DELTA 

All. 2.1 1 

U 

-X  1  3  /  delta 

Al 1 *3.1 1 

m 

0. 

AI2.3.1I 

U 

-ETA2  /  DELTA 

All. 3.1  I 

a 

X  1 2  /  delta 

DO  39  II 

8 

1.3 

DO  39  JJ 

s 

1.3 

/  DELTA 
DELTA 


39 


All  |A3.  JJO.  It  ■  Al  1 1  .JJ.ll 
Altt.JJ.2)  -  AIJJ.II.lt 
A I  I  I  a  3 . J JA  3 • 2  I  *  AIJJ.ll.lt 
CONTINUE 


TRANSPOSE  OF  INVERSE  OF  A  NON  IN  All  .1.2  t  .  A  INVERSF  STILL  IN  A 

CALL  MXMUL T I DO.A.KMXI 1. 1 t.3.6.6  I 
CALL  MXMUL  TIC .KMX  11.11  .COA I  1 . 1 • I ) .3 . 3 .6  I 
PRODUCT  CA0AIA..-1I  NON  IN  CDAll.l.lt.  I TM  TRIANGLE 
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uuu 


c 

CALL  MXMULTlAll.l.?|.0Tn.A.4.6.Sl 

CALL  MXCONI A.KPR  I  1  •  1  •  I  I  •  I HQMFG.4  •  1 1 

CALL  NXMULTIKPRI 1.1.1  I  *(UA I  |*|  *|  I  I 

C 

C  MATRIX  Kill  NOW  IN  KMX*  TR1 ANoLt  I 


00  40  II 

« 

1.4 

DO  40  JJ 

•1.4 

TIII.JJI 

•  0. 

40  CONTINUE 
Tll.ll 

■ 

cosialmlii.iiii 

TI4.1I 

■ 

sinialmlii.hu 

TI2.2I 

■ 

C0SIALMLH.2III 

TIS.2I 

■ 

SINIALMLII  .2111 

T IS.SI 

• 

COSI ALMLI  1.311 1 

T 14.31 

■ 

SINIALFILI 1.31 1 1 

TI1.4I 

• 

-TI4.II 

T 14.41 

■ 

Tll.ll 

TI2.SI 

■ 

-TIS.2I 

f IS.SI 

• 

TI2.2I 

T 13.41 

• 

-TI4.3I 

T 14.41 

m 

TI3. SI 

CALL  NXNULT  IRNX.T .A. 4 .4 .4 | 

TI4.1I  ■ 

- 

TI4.1 1 

TIS.2I  • 

- 

TIS.2 1 

TI4.3I  • 

- 

T 14.3 1 

TI1.4I  • 

- 

TI1.4I 

TI2.SI  • 

• 

Til. SI 

Tl 3.41  ■ 

- 

f 13.41 

INVERSE  OP  T  NOW  IN  T 

call  MINULT  IT.A.KPRll.l.ll. 4.4.41 

C  K-PRINE  NOW  IN  KPR  •  A  MAS  MEN  CLOOtlRfD. 

400  CONTINUE 
RETURN 

#00  PRINT  10SI.llOJ.il 

10S1  FORMAT  I  lHl.  SM  EM  .  IS.  |H.  |  ).TM»  •  ERI.IS.4MI  •  0.1 
STOP 

•00  CONTINUE 

print  lose  t  J 

10*0  FORMAT I lHl  1SMC0UL0  NOT  INVTNT  MATRIX  T I <T4 |AN6Lt .1*1 

9S0  CONTINUE 
REWINO  20 
STOP 
ENO 


CAU  4 
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n  nnnnn 


FUNDAMENTAL  CASE  6 


SUBROUTINE  STRESS 
STRESS  SUBROUTINE  CASE  6 


IMIS  SUBROUTINE  DERIVES  AND  PRINTS  STRESSES 

COMMON  /STRSS/  ALFI15S).  MSI2E.  R.  GAMMA,  El.  G1I.XNUI2) 

COMMON  /l/  S132.32.*I.L(300.3).G(32I,SPACE(20) 

1  •  NUF  (  3,314)  .X( 15* > *Y( 155  I .CDAI 3.6.250) 

2  .  XPRI6.6.250) .MSM 310) .JTOTAL.N.XREM.M  ,  I  MR ,  IPL 

3  .  PI155.2)  .D I  155.2) 

COMMON/LIM/  L1M1I 10) .LIM2I 10) 

DIMENSION  DVXI6I,  SIGOUTI632) 

DIMENSION  SP I  32.10) 

EOU I  VALENCE ( S.SIGOUT )  .(NUF.SO) 

TYPE  REAL  XPR 

EQUIVALENCE  (S.SIG)  .  ( S 1 93 1 ) .PSTR )  .  I S ( 1 86 1 ) tXO ) . I  SI  2 161 ) • YO ) 
EQUIVALENCE  ISI 2661 ) .DEL  I  •  ISI2761I.DX) 

DIMENSION  tRR I  310 ) 

DIMENSION  DX 1 6 1  •  SIGI6.168)  •  PSTRI3.310) 

DIMENSION  X0I300)  .  Y0I30U).  DELI310) 

DIMENSION  KS22I 32.96) 

EQUIVALENCE  (XPR.XS22) 

TYPE  REAL  XS22 
DATA  IPX«999.) 

C  REMOVE  GAPS  FROM  SPI32.10)  *  DEL (310 1 
DO  5  J* 1  . XRE M 
DEL  I U I  *  SP(J.l) 

5  CONTINUE 

XLOC  «  XREM  -N 
DO  10  I  »  2.M 
XLOC  »  XLOC  ♦  N 
DO  10  J  *  l.N 
DEl(XLOC»J>  *  SP(J.I) 

10  CONTINUE 
PRINT  1010 

1010  FORMAT! 1M1.50X.1 3HOlSPLACEMt NTS.// I 
NOEL  -  MSIZE/7 

JCNT  -  0 
.  DO  15  J-l.NDEL 
JCNT  «  JCNT  ♦  1 
IF! JCNT. LE. 1ST  GO  TO  16 
PRINT  101j 
JCNT  *  0 

16  JF|R  *  7* ( J- 1 )  ♦  1 
JL AST  »  JFIR  ♦  6 
PRINT  1011  •  (K.X*JFIR.JLAST | 

1011  FORMAT ( IN  . 7  I 8X . 6 HUE  L ( » I  3 • 1 H )  )) 

PRINT  1012.  (DEL  IX) ,  Xs  JF IR.JLAST ) 

1012  FORMAT ( 1H  .7 ( 2X «E 16 . 7 ) / ) 

15  CONTINUE 

LOCI  *  7*NDEL*1 
LOC  2  *  MSIZE 

IF1L0C1.GT.L0C2)  GO  TO  20 
PRINT  1011 .(X.X=LOC! .L0C2 ) 

PRINT  1012.  ( DEL ( X ) »X*L0C1«L0C2) 

20  CONTINUE 

DO  855  I*1.JT0TAL 
J  *  I 
X2  *  0 

DO  831  XX  *1  »3 
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DO  8)2  KJ  >1*2 
K2  ■  K2  «  1 

I F«  PlLU.KKI.KJI.GT.PKI  CO  TO  #28 
IM2MLI  J.KKI-ll^KJ-WSM  IPl  »  )  831  .  80 2.  803 
80?  112  •  IPL 
CO  TO  827 
tOl  INN  ■  IPL  -  1 

806  |FI2*(LIJ»KKI“1)  ♦KJ  -MSKIIMP))  804.  809*  809 
609  112  •  IMP 

IPL  •  IMP 
GO  TO  627 
804  IMP  •  IMP  -  1 
GO  TO  606 
60)  IMP  »  IPL  ♦  1 

807  IFl2*ILI J.KK  >“1 1  HJ  -MSMlMR))  809.  809.  810 
810  IMP  ■  IMP  4  1 

GO  TO  807 

827  OVXIKZl  ■  DEL  <  I  I?) 

GO  TO  832 

626  OVXIKZl*  0<LU.KK).KJ> 

632  CONTINUE 

DXt KZ-1  I  >  OVXU.Z-1  )*COSIALFILI  J.UI  )  l-DVX  IU  I  »S  INI  ALF I  LI  J.KK  1 1  I 
OXIKZ)  ■  DVX IKZ-  1I*SINIALMLIJ.KM))4DVXIKZ  I  *COS  (ALF(LU.KK)I) 
831  CONTINUE 

0X2  >  0X12) 
rXI2l  •  DXI1I 
0X131  ■  0X191 
0X19)  ■  DXU) 

0X14)  ■  0X2 

CALL  MXMULT ( CDA I 1 • 1  .  I  I  *OX •  SIG ( 1  *  I r.3  .6. 1 1 
XX  3  -  1 

IF! I .GE.37.ANO*  I  .Lb*  122)  XX3  ■  2 
SIGI4.I)  •  SIGI3.il 

SIGI3.il  •  XNUIKK3)<HSIG(1.I  >4SIG(?.I>) 

C  SIGMA  NOW  IN  SIGU.II  •  TRIANGLE  I 
XOIII  •  0. 

YOU)  ■  0. 

DO  840  X  •  1.3 

XOIII  •  XOI I )  4  XILI  I.K) > 

YOU)  ■  YOIII  4  VIL I  I.K)) 

840  CONTINUE 

XOIII  >  XOI I  I  /  3. 

YOU)  «  YOU)  /  3. 

890  CONTINUE 
899  CONTINUE 

TAUBAPbR/4.*  ISIGI  4*3  )4S1G<4.12)4SIGI4*24)4SIGI4*36II 
1  4 II. -PI  /2.*  ISIGI 4.44 1 4SIG  14.49)1 

TAUBAR  ■  l./TAUUAR 
00  860  1-1.632 

860  SIGOUT 1 1 )»SIGOUT I  I ) *TAUBAR 

I  ■  1 

870  CONTINUE 
PRINT  1000 
LINE  •  3 

1000  FORMAT  1 1M1  *2 18HTR I  ANGLE.6X  .8HCENTP0ID.9X  .12HVECT0P  SIGMA. 10X1/) 

871  CONTINUE 

II  ■  1 41 

DO  880  J-1.4 

GO  TO  1873.874.879.879).  J 

873  PRINT  1001*  I.  XOIII.  SIGI J. I ) » 1 1 .XOI  II).  SIGIJ.I!) 

GO  TO  876 

874  PRINT  1002.  YUI  1 1  .SIGI  J.l  I  •  YOIII).  SIGU.II) 
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GO  TO  878 

874  PRINT  1001,  SIGIJ.Il.  SIG!  J,  I  I  1 
878  CONTINUE 
880  CONTINUE 

l INF  »  LINE  ♦  h 
I  ■  ? 

PRINT  1004 

1J01  FORMATUH  i  (  SX  ,  13. F  14,6,  7X,E15, 8,10X1  I 
100?  FORMATUH  2I8X.  114,6,  7X,£  16,8, 10X1  1 

ioo)  formatiih  2( 29*,e i).8,iox n 

1004  FORMAT! /) 

1069  FORMAT!  1H  .30X.E1S.8I 

I  F I | •GT, JTOT  *L I  GO  TO  89^ 

IF  IL INE«GT ,64  I  GO  TO  87 1 
GO  TO  871 
890  CONTINUE 

WRITE  1201  I  &  I  GOUT  (11,1*1.316)  CASE  6 

PRINT  8787,  TAUbAR 

8787  FORMAT  I //23H  NORMALIZATION  FACTOR  -,2X,E1S,7| 

RETURN 

END 
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o  n  r>  r» 


AUXILIARIES 


SU3R0UTINF  B1GMXI ICYCLE) 

THIS  SUBROUTINE  SEARCHES  THE  K-PRIME  MATRICES  BETWEEN  LIMl(ICYCLE) 
AND  LIM2(  ICYCLE  I  TO  SET  UP  THE  (CREM  OR  N  ROWS  OF  S*K«22  REQUIRED 
BY  THE  EQUATION  SOLVING  ROUTINE  CHLSKY 

COMMON  / 1  /  S(32.32.5I.Lt  300,3), GM2I  .SPACE(20> 

1  *  NUF I  3*314  >  »X(155)»Y(155I ,CDA( 3  *6 *2 AO  I 

2  .  KPRI&. 6*2501. MSKMIOI.JTOTAL.N.KRFM.m  ,  )MR,  IPL 

3  ♦  .0(155.2) 

COMMON/LIM/  LIH1IKj).L|M2C  101 
DIMENSION  SP ( 32  » 1 0 ) 

EQUIVALENCE  INUF.S°> 

DIMENSION  KS22(  32*96 )  «  KS21I32) 

DIMENSION  0(5120) 

EQUIVALENCE  <S»KS22»Q)  •  (G.KS21I 

TY«»E  REAL  RPR 
TYPE  REAL  KS22  .  KS21 
DATA  (PK  •  999.) 

IFdCYCLE.GT.il  GO  TO  1 
ISMIFT  «0 
JSHIFT  *0 
K 1  *  KREM 
K2  •  KREM  ♦  N 
GO  TO  100 

1  CONTINUE 

IF  (ICVCLE.EO.MI  GO  TO  3 
K1  *  N 
K2  ■  3»N 
GO  TO  2 
3  CONTINUE 
K1  •  N 
K2  •  2»N 

2  CONTINUE 

IF* ICYCLE. GT. 2)  GO  TO  110 
JSHIFT  o  C 
GO  TO  111 

110  CONTINUE 

JSHIFT  •  KREM  ♦  ( ICYCLE-3 ) *N 

111  CONTINUE 

ISHIFT  ■  KREM  ♦  (  ICVCLE-2 1 *N 
C 

C  ISHIFT  IS  A  BIAS  TO  FIT  THE  EQUATIONS  INTO  THE  CORRFCT  ROWS 
C  JSHIFT  IS  A  BIAS  TO  FIT  THE  EQUATIONS  INTO  THE  CORRECT  COLUMNS 
C 

109  continue 

C  ZERO  OUT  KS22.  KS21.  AS  REQUIRED 
DO  8  I-1.K1 

G( 1 1  •  0. 

00  8  J  *1 *K2 
KS22II.J)  ■  0. 

8  CONTINUE 
IPL  ■  1 

NLO  •  LINK  ICYCLE  I 
NHI  •  LIM2I ICYCLE) 

DO  100  J.NLO.NHI 
DO  100  1*1.6 

12  ■  1 

11  -  I 

15  IFdl-31  17.  18.  19 
19  11  ■  11-3 

12  ■  1231 
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GO  TO  15 
18  IS  •  1 
IT  .  I? 

IF  ltPCLIJ«1).l2)-PKI.GT.O,)  f,0  TO  99 
C  HE  RF  IF  FORCt  IS  KNOtaN 
PI  •  PCLIJ.il. 12) 

GO  TO  25 

17  I F 1 11-21  20.21.21 

20  IS  •  1 
IT  .  !  2 

IF  ((PCUJ.l  1. 121-PIC). GT. 0.1  GO  TO  99 
PI  ■  PILIJ. 11.121 
GO  TO  25 

21  IS  •  2 
IT  >  12 

IF  (<P(MJ.2I.I2I-PK).GT.0.)  GO  TO  99 
PI  •  PIUJ.2I.I2) 

2*  IF  (2*iu  J.m-mt  T-*»SK«IPL  1  1  501,102.305 
10?  Ill  «  I  PL 
GO  TO  127 
301  I HR  ■  1PL  -  1 

106  IFI2«ILI J.IS1-1I  ♦  IT-MSKMHRII  104,  105,  305 
105  III  «  I  HR 

I  PL  ■  I  HR 
GO  TO  127 
104  (HR  •  I HR-1 
GO  TO  106 
301  I HR  •  IPL  ♦  1 

107  |F  I?9ILIJ,IS)-1)4| T-MSKC I HR  I  I  10*.  109.  110 

109  111  ■  I HR 
IPL  ■  I HR 
GO  TO  127 

110  I HR  •  IHRM 
GO  TO  107 

127  |F(  lll-ISHIFT.GT.KI I  GO  TO  12R 
IFltll-ISHlFT.LT.il  GO  TO  128 
IFIKS21 1 1 Il-I SHIFT). HE .0.)  GO  TO  128 
KS21I  1 1 1-1  SHIFT  1  ■KS21 1  I  I l~l SHIFT  I  ♦  PI 

128  CONTINUE 

00  100  KJ  ■  1.2 
DO  100  KK  ■  1,1 

IF  (IPILIJ.KKI.KJI-PKl.GT.O.)  GO  TO  28 
IF  I2*IU  J.RK)-1|4F.J-HSK(|PLII  11.  12,  11 
12  1 12  •  IPL 
GO  TO  27 
11  I HR  ■  IPL-1 

6  IFI2MLI  J.KKI-ll  ♦  KJ  -  HSKIlMRII  4*5.5 
5  112  ■  I HR 

IPL  -  I  HR 
GO  TO  27 
4  |HR  «  I HR- 1 
GO  TO  6 

11  I HR  ■  IPL  ♦  1 

7  IF  I2«IU J.KKI-ll  ♦  KJ  -  HSKIlMRII  5.  5,  10 
10  IHR  •  I  HR  ♦  1 

GO  TO  7 

27  IFIII1-ISHIFT.GT.K1I  GOTO  99 
IFIII1-ISMIFT.LT. 11  GO  TO  99 
IFI  II2-JSH1FT.GT.K2I  GO  TO  999 

KS22I 1 1 1-ISHlFT • I I2-J SHIFT)  •  KS22  I  1 1 1-ISHIFT. I I2-JSHIFT) 
1  ♦  KPRI !.1*(KJ-1 I'.KK.J  I 

GO  TO  99 
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21  If IOILI J.KKI.KJI.EO.O.t  U)  TO  N 
lfllIl-ISHlfT.GT.Kll  GO  TO  M 
lrllll-I SMlf T «LT . 1 1  GO  TO  ♦♦ 

KS21I  lll-ISMlf  T»  ■  KS21  C  IM-ISMIFT  |  I 

1  •  DILI  J.KK liKJI 

99  CONTINUE 
1  c»0  CONTINUE 

C  HAVE  EQUATIONS.  NON  SHlfT  THE  Sue*  A  TRICES  TO  Th(  PROPtR  POSITION  fOP 

C  SUBROUTINE  CMiSKV 

lfllCTCLE.GT.il  GO  TO  *30 

C  Sll.ll  IS  IKREM  X  KREM) *  SI1.2I  IS  IKREM  I  Nl 
DO  *10  J  *  1.  KREM 
DO  *10  I  ■  l.N 
LOCL  ■  J  ♦  KRfM*l |-1  I 
LOCR1  *  J  ♦  32*1 l-l*KREMI 

C  SET  UP  SI1.2I  IN  Sll.l.*l 
OILOCLOOT2I  »  OILOCR1 I 
*10  CONTINUE 

00  *20  J  ■  1*  KREM 
DO  *20  I  *  l.KREM 
LOCL  •  J  ♦  KREM* | 1-1 | 

LOCR2  ■  J  ♦  32- 11-11 

C  SET  UP  Sll.ll  IN  SI  1.1.21 
0IL0CL*102*I  ■  OILOCR2 I 
*20  CONTINUE 
GO  TO  *«0 
*30  CONTINUE 

If  IICTCLE.GT.2I  GO  TO  **0 

C  SI2.ll  IS  IN  X  KREMI  •  St  2.2 1  AND  SI2.3I  ARE  IN  X  N) 

K 1  «  KREM 
GO  TO  *S0 
**0  CONTINUE 

C  SI  I  •  1-2 1  •  sll.ll  .  $11.1*11  ARE  IN  X  N) 

K1  >  N 

*90  CONTINUE 

C  SET  UP  SI  ICYCLE  •  ICVCLEM  I  IN  SI  1.1. *1 
If  lICTCLE.fa.MI  GO  TO  *61 
00  *60  I  *  l.N 
DO  *60  J  ■  l.N 
LOCL  »  J*N* ( 1-11 
LOCR1  ■  J  ♦  32*1 1-1*K1*NI 
0IL0CL*3072 I  ■  OILOCR1I 
*60  CONTINUE 
*61  CONTINUE 

C  SET  UP  SI  ICYCLE.  ICVCLEI  1*1  Sll.1,31 
DO  *66  I -l.N 
DO  *68  J-l.N 
LOCR2  ■  J*32*l I-1*K1  1 
LOCL  ■  J  ♦  N  •  11-11 
Q(L0CL*20*6 I  -  OILOCR2 I 
*68  CONTINUE 

C  MOVE  SI ICYCLE. ICVCLEI  TO  Sll.1.2) 

NSO  ■  N**2 
DO  *70  ll-l.NSO 
01 1 1*102* I  •  0111*20*81 
*70  CONTINUE 

C  REARRANGE  SI ICYCLE . ICVCLE-l  I  WITHIN  Sll.l.ll 
KLOC  ■  0 
DO  *80  1-2. K1 
KLOC  •  KLOC*N 
DO  *80  J-l.N 
QIKLOC+JI  •  SIJ.I.l  I 
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*80  CONTlNUF 
RETURN 

099  CONTINUE 

PRINT  100J.ICYCLF 

1000  FORMAT  (H1.3SH  BANDWIDTH  FXCFEDFD •  PARTITION  ROW , I  3 ) 

I  ROW  1  •  III  ♦  ISHIFT 

JROW 1  =11?*  JSHIFT 
PRINT  1001,  I  ROW  1 ,  JROW 1 

1001  FORMAT ( 1H  , AHROW  z*13»6X« 7HC0LUMN* ,13) 

PRINT  9120.  III,  112,  ISHIFT,  JSHIFT 

9120  FORMAT ( 1 H  , AH  I  I  1 » • I  3 ,4M I  I  2* • I  3 . 7H I  SHI  FT « , I  3  * 7HJSH I F T » , I  3 ) 

PRINT  9121,  FI,  K2,  FRLM.  N,  M 

9121  FORMAT  I  1H  ,3MIC1».|3,3HK2».I3*SHFREM*.I3.2HN*.I3»2HM=.I3) 

PRINT  9122.1,  J,  I  PL ,  I  MR ,  IS,  IT 

9122  FORMAT! 1H  ,2H I  *  , I  3 , 2HJ« , I  3, AH  I OL ’ *  1 3 , AH IMR« • 13 ,3HI S* • 1 3 ,3H I T », 1 1 » 
STOP 

END 
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rui  o  nan 


) 


subrout  inf  chlsxy 

c 

r  this  until!**  solves  su»r.  ,  where  s  it  i  tri-diagonal  matrix  in 

C  SilBMATRICES.  WITH  CLEMENTS  rtf  ORDER  N. 

C  S  rs  KNOWN 

C  SP  IS  A  VECTOR  Of  OINtNSION  IN*M|  BHEBt  M  IS  T H£  NUMBER  Of  DIVISIONS  Of  S 
C  C  IS  WRITTEN  ONTO  TAPE  AFTtR  DERIVATION  ON  THE  FORWARD  PASS* 

C  and  READ  back  in  ON  The  BACsSMEfP 
C  $11*1*11  INITIALLY  CONTAINS  Sit. 1-11 

0  Sll.l. 2T  INITIALLY  CONTAINS  Sll.l  I 

C  Sll.l, AT  INITIALLY  CONTAINS  S 1 1  •  I  ■»  1  I 

C  SP  CORRESPONDS  TO  P  IN  THE  wRITfuP  BY  GATE  WOOD  ON  THE  FORWARD  PASS. 

C  ON  the  BACKSWEEP*  IT  CORRESPONDS  TO  U. 

COMMON  /l/  SI32.32,Sl.L< TOO. 1 ) «G <  32 1 .SPACE ( 20  ) 

1  .  NUFI3.314)  .XI1SSI.YI1SSI  »CDA  I  3  ,6.230  I 

2  *  KPR I6.6.230I.NSKI3101.JTOTAL.N.FRFM.N  *  I  MR .  |PL 

3  •  PI1SS.2)  .01  ISA*? I 

COWMON/LI*/  L  INI  1 1  't )  ,L  |M2<  ln I 
DIMENSION  SP I  3? , 1 0 T 

EQUIVALENCE  INUF.SPl 
TYPE  REAL  KPR 
DIMENSION  Cl  1024  I 
EQUIVALENCE  I  SI  40971 «C I 
OATA  IILIMIT  M.E-B) 

REWIND  *6 
N2  •  ?*N 
KREM2  .  2*KREM 
DO  30  ICVCLE  «1.M 

CALL  bigmxiicvclei 
IFIICYCLE-21  1.2.3 
1  K1  •  KREM 
K3  •  KREM2 
GO  TO  10 
Ml  ■  N 

K 2  •  KREM 

K3  •  N2 
GO  TO  4 

3  K1  -N 
K2  «N 
K3  -N2 

4  CONTINUE 

5  IF  IUNIT.96T  6.7  .600,  600 

6  GO  TO  S 

7  CONTINUE 

CALL  MXMULTISU.1.1  >  .  Sll.l. 5)  .  Sll.l. 31  .K1.K2.K1) 

Sll.l. 5)  CONTAINS  C  FROM  LAST  CYCLE 

CALL  MXSUBISI 1.1  .21  .  Sll.l. 31  .  Sll.l. 2)  .K1.K1I 
10  CONTINUE 

BII.I)  NOW  IN  Sll.l. 21 

CALL  INVERT  I  SI  1.1 .2 1  .  K1  •  K3.  XLIMIT  ,  FLAG) 

IE  IElAG.NE.0.1  GO  TO  SOO 

INVERSE  OF  BII.I)  NOW  IN  Sll.l, 2) 

IF  1 1  CYCLE  *E0. 1 )  GO  TO  20 

CALL  MXMULTI SI  1.1,1 )  .SPI 1  .ICVCLE-1J  .  Sll.l. 3)  ,  N.  K2  ,  1) 

CALL  MXSUB  IG  ,  SI  1.1 .3).  G.  N.  11 
20  CONTINUE 
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CALL  *I*UL  T I  SI  1 . 1 .2  >  •  0  .iPIl.  ICVCLf  I  >  (I  i  I|  •  1) 

if  i  icvclf  .cr.*i  oc  to  94 

CALL  HAMULI  I  S  I  1  «  I  .2  I  •  Ml.1.41  »  .  SI  1*1.41.  Kl  .  Kl  »  HI 
NSQ  •  K  1*N 

AUFKf  #  *>*  t  T  146*11  ICUI.  C(H«.0  II 

"  COMIKUC 

14  CON  f I  HUE 

C 

C  HO*  IN  BACA SHEEP*  solving  fob  u 

c 

on  AO  I  •  ?.« 

JCvclC  •  *-l*l 
frucvfLr.Gt.il  cn  TO  46 
Kl  •  KREN 
GO  TO  17 
16  Kl  >  N 
37  CONTINUE 
NSO  ■  K1*N 

ir  i JCvcLr.ro.*- ii  on  to  ai 

BACKSPACE  *6 

41  continue 

BACKSPACE  96 

BUEFCB  IN  196*11  ICI1I.CINS0  II 

42  IE  I  UN  I T *96 1  43.  44.700.700 

43  GO  TO  42 

44  CONTINUE 

C 

C  U|MI«SPIM>  .  CONS  l-OFN  F  INST  IM-1ITMCVCLF 
C 

CALL  MXMULTISI 1.1.31  .SPIl.JCVCLEvil.su.  1.1I.K1.N.  II 
CALL  MISUBISPU.JCVCLEI  •  Sll.l.ll  «SP  1 1 .  JCYCLE  I  .  Kl  .  II 
60  CONTINUE 

C 

C  UINS.ll  NOW  STONED  IN  SPIN. II  .  I>1.N 

C 

NETUNN 

300  CONTINUE 

PPINT  1000  .  ICVCLE 

1000  EONMAT  I31H1COUL0  NOT  INVENT  MATRIX  IN  N0H.I2I 
STOP 

400  CONTINUE 

PRINT  1001 • ICVCLE 

1001  FORMAT  1 37H1  ERROR  READING  C  INTO  CORE  ON  12*  7MTM  ROW. I 

.  STOP 

700  CONTINUE 

PRINT  1002.  JCYCLE 

1002  FORMAT  1 37H1  ERROR  «R!TING  C  ONTO  TAPE  ON  12*  7MTH  ROM. I 

STOP 

ENO 
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SUBROUl  INt  MXMUL T tA.h.C .M.N.fc  I 

c 

C  Tm|S  StIBROuT  INF  MUL  T  I  PL  If  >  ''All*!*  A  H*  MATRIX  h  ANL  STORES  t  mF 
C  PRODUCT  IN  C.  <C  f  ANNOT  BE  I  N|  SA*f  AS  A  OR  R.  ) 

f 

r  a  is  im  «  ni 
r  MS  IN  >  H 
C  l  I  S  |M  X  «  I 

c 

DIMENSION  AIM, M  ,  HIN.tl  «  (l»,(| 

c 

OO  1  1*1  »m 

DO  |  L»l«* 

Cl  I .L  I  »  0. 

DO  1  J*  1  »N 

CII.LI  *  CU.ll  ♦  AII.ji  •  RIj.LI 
1  CONTINUE 
RETURN 
FND 


SUBROUTINE  MXSUBIA.B.C.M.N) 

THIS  SUBROUTINE  SUBTRACTS  MATRIX  H  f  ROM  MATRIX  A.STuRES  RFSUi-T  IN  C 

At  Bt  AND  C  ARE  IM  X  NI  <C  CAN  Rt  THE  SAME  AS  A  OR  R) 

DIMENSION  AIM.NI  .  R I M . N I  .CIM.NI 
C 

DO  1  1-1 .M 

DO  1  J-l.N 

Cl  I  .Jl  «  A  I  I . J  )  -  HI  I .J) 

1  CONTINUE 
RETURN 
END 


SUBROUTINE  MXCONI A.B.X .M,N ) 

C 

C  THIS  SUBROUTINE  MULTIPLIES  MATRIX  A  (MXNI  BY  CONSTANT  X,  RESULT  IN  B 
C  A  MAY  BE  SAME  AS  B. 

C  THIS  SUBROUTINE  MULTIPLIES  MATRIX  A  I MXN )  BY  CONSTANT  X,  RESULT  IN  B 
C  A  MAY  BE  SAMF  AS  B. 

DIMENSION  AIM.NI  .  BIM.NI 
DO  1  1*1. M 
DO  1  J*  1  »N 
B< I ,J>*  X *A I  1 . J) 

1  CONTINUE 
RETURN 
END 


103 


o  n  o  nor*  non 


SubRCt,*  !  I  Nt  I\vLRII:5.v.x2.XmIN«ElAu1 


I  m  |  S  SUBROUTINE  >1  !  oh  A  u.‘«  1  T  MATRIX  ADJACENT  TO  BIX.X) 

C  fLtMENTARv  R~>*  Om-at;  ‘,S  ARE  InfS  u.  Rt  ORMf  ;  js  the  NEW  x  x  2K  matrix 
C  in  HfOoCr  H|«.xi  T,  4  |T  ma ! R I  X .  7  h  I  S  w|Lt  °L*CE  The  INVERSE  Cr 
C  ThE  matrix  Hix.x)  IX  Tm>  RIGHT  male  OF  F  ( X . ?X  ) 

C  ON  EXIT.  The  INVERSE  OE  H  REPLACE..  H 

C  H9*S  N  ARHAV  OE  LOCATIONS  CUNT  A I  Nl  NO  THE  MATRIX 

c  X  15  THE  0 1  Ml  Mb  ION  OE  Tut  S.JUARl  MATRIX  H 

c  x;  is  ?•» 

C  XM I N  IS  THE  SMALLEST  ALLOWABLE  MAGN I  T  UOE  CE  THE  PIVOT 

c  flag  rill  he  re turned  as  ..  ie  t«e  inversion  went  oee  ox 

C  ElAG  WILL  HE  RETURNED  AS  1  .  IE  A  pivot  ELEMENT  WAS  TOC  SMALL 
c  flag  should  bf  tfsted  after  each  call  to  this  routine 

c 

DIMENSION  HIX.X21 

c 

FLAG  *  c. 

c 

C  SET  up  UNIT  matrix 

c 

IE  I X.GT. 1  |  GO  TO  2J 
|E  I  AEtS<  bl  i  .1  I  ».L  I.XMINI  GO  T(  13 
bit  .  1  I  *  l./SI 1 . 1 ) 

RETURN 

20  CONTINUE 

DO  1  l*l*X 
DO  1  J*1.K 

BII. X»JI  *  0. 

IEU.EO.Jt  Btl.X.JI  *  1. 

1  CONTINUE 

F | NO  LEAOING  ELtHENT  WITH  GREATEST  MAGNITUDE 

OO  6  J* 1 • A 
M  .  J 
N  ■  J*1 

IEIJ.EQ.XI  GO  TO  21 
OO  2  L  *N  »A 

IF  I ABSIBIM. Jl T.LT.AHSTHIL *J» I »  M*  L 
?  CONTINUE 

21  CONTINUE 

IF  <  ABSIBIM.  jn.LT.XMIN>  GO  TO  10 
IF  I  J.E  0*K  I  GO  TO  )1 

INTERCHANGE  JTH  AND  MTH  ROWS 

DO  3  L*J.A2 
0  ■  BIJ.L1 
Bl J.L I  *  BIM.L  t 
BIM.LT  ■  0 

X  continue 

31  CONTINUE 

2EHO  OUT  PIVOTAL  JtH  COLUMN.  SNIPPING  PIVOTAL  JTH  ELEMENT 
DIVIDE  JTH  ROW  BV  PIVOT 

DO  4  M.N.K2 

BIJ. MT  *  Bl J.MI  /  HIJ.JI 
4  CONT INUE 

DO  S  M=  l  .X 
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KJ  KJ  \>J  O 


M  DETERMINES  HOW  BEING  MODIMIDt  ONI  WHOLE  ROW  AT 

IE  I  M.EQ.J  )  GO  TO  6 
DO  5  l=n.k; 

L  DETERMINES  FLrMENT  IN  THr  vTm  p -)w 

BIM.LI  *  •  hij.li 

5  CONTINUE 

6  CONTINUE 
C 

C  INVERSE  Of  B  IS  NO*  IN  RIohT  half  Ol  H(KtK2) 

C  NOW  MOVE  B  INVfRSt  TO  WHERE  t<  WAS 
DO  7  l*l»«. 

DO  7  J=1.A 

B I  I tJI  *  B 1 1 »J*K 1 

7  CONTINUE 
RETURN 

10  FLAG  *  10. 

RETURN 

END 


T  IMf 
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FUNDAMENTAL  CASE  THREE 
(AXIAL  LOADING) 


PROGRAM  MA  1  \A 

C 

C  THIS  IS  IM>  MFUJMV:  phu^RAv  nSfp  kITm  SUHROuTINf  PKMX  AND  SUHWOUT  INF 
C  CHLS*v  r  ..INFKATt  ANU  ..LV  [Au  ,t  SYSTC'S  OF  UMAR  IOUATIONS 

(. 

REWIND  C ASF  1 

CAL  L  I  APt  iAliM^Uik,.  ) 

CALL  TAPFSA|PI^U*;»i'I 
1  CONTINUt 
CALL  INPllTA 

C  NOW  HA Vf  ALL  A -PR  I Mf  AND  CPA  MATRICf  S 

r 

CALL  CHDLA 

c 

C  NOW  HA VF  SOLUTION  U  IN  SP 

r 

call  stresa 

c 

C  all  STRESSFS  NOW  PRINTED  OUT 

c 

GO  TO  1 
END 

23  CARDS 
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SUBROUTINE  INPUT A 


C 

C  THIS  SUBROUTINE  reads  and  prints  the  inputs  for  the  planar  finite 
C  ELEMENT  program,  all  inputs  not  read  are  generated  here. 
c 

COMMON  /!/  SI32.32.SI »L I  1 60 . 3  )  »G ( V I .SPACfc  (  20  I ,XNU 1 2 ) ,E ( 2 > 

1  •  NUFI3.16U)  ,X(  155I.YI 156>.CDAI3,6.160> 

^  •  KPK (6.6. 160 ) .MSA! 310  )  .JTOTAL .N.KRfcM.M  «  I  MR.  IPL 

3  .  PUSS. 2)  .0(166.2)  »  EPTO).  PT(6.160).  SITO.160) 

COMMON  /STRSS/  ALE (165)  •  MS  1 2  E  .  R  .  GAMMA 
EOU I  VALENCE  (XNU(  1 ) .XNUI ) .  ( E ( 1 ) .£ I) 

COMMON/LIM/  L IM1 ( l.M  «LIM2( 1C) 

DIMENSION  SP02.1D) 

DIMENSION  NUYXI 250) .NUXY1  2SL 1  .  GXY(260).  EXI250).  EY(250> 

DIMENSION  COMENT( 10)  •  PTm(6I 

DIMENSION  BUMP (10)  .  BUMP  1 ( 5  ) 

EQUIVALENCE  INUF.SPI 
EQUIVALENCE  IC.CP) 

DIMENSION  JL  <  79 . 3  I 
C 

C  NUYX  -  NUXY.  THIS  MODIFICATION 
EQUIVALENCE  ( NUXY. NUYX ) 

DIMENSION  TH( 155)  .  CPI3.3)  .  T 1 < 3 .3 .2  I . T2 l 3 . 3 ) »DTD ( 18 >  . 

1  T  16.6)  .KMX (6.6).  C ! 3 .3 ) . A ( 6 .6 .2 ) .DO ( 3 .6 > .00 (  18 ) »0T0( 6 .3 » 
EQUIVALENCE  (S.F)  .  (SI  901 ) »VF  )  •  (S( 1801 ) .PHI) .(SI2701  )  .ER) 

1  •  (S( 3001 ) .EF ) . ( S( 3901  I .NUR) 

2  •  IDG. DO)  .  (DTu.OTDl  .  I S I  6356 ) . TH ) 

3  •  (SI45UI.CP)  .  (  S I  4521 )  •  T  1 1  •  (5(4541  ). T2) 

4  .  (5(4551). CABC)  •  (5(4581). Tl  .  ? S( 462 1 ) .KMX ) 

5  •  ( S ( 4671  I .A ) 

DIMENSION  EPT1I3.2) 

TYPE  REAL  NUXY 

TYPE  INTEGER  BUMP,  BUMP1 

TYPE  REAL  NUYX,  NUR.  NUF.  KPR *  XMX 

OATA  (KTOTAL  «  97) 

DAT  A I  BUMP*  2.4.7.7,15.1  .9  .9  .12,-1) 

DATA! BUMP 1*  5. 7. 7.7. 5  I  .(PI-  3.1415927) 

DATA  (RAD  ■  57.295781 
DATA  IXLIM-1.E-8) 

DATA  (PK-999.) 

DATA  ( (DD( JJ ) , JJ« 1 • 18 )  *  0..  0.,  0«,  1*.  0*.  0.,  0.,  0*.  1., 

1  0..  0..  0,.  0*.  0*.  U.  0..  1..  0.  I 

DATA  ( (DTD I JJ ) . JJ-1 *18 )  -  0 • ,  1.,  0.,  0.,  0*.  0.*  0.,  0.,  0*. 

1  0..  0.,  1.,  0..  0.*  1.,  0..  1.*  C.) 

DAT  A( ( I JL (  I  .J), 1-1, 79). J- 1.3)  - 

1  1.1*1, 2, 2. 3. 3. 3, 4.4. 4, 5.6, 7, 7.8, 8, 8, 9, 10. 10, 11, 11. 12*13, 13, 

2  14. 15. 15. 16. 16. 17. 17. 18, 18. 19, 23,23, 24, 24 .25. 25, 25, 26.28. 29. 

3  29.30,30.35.21,21.21,21.22,22,23,23,27,27.27,28.28,36,46.37, 

4  47,38,48 ,39, 39*40, 41, 41, 41, 42, 42*4 3. 43, 

5  2»3,  4, 6.7. 7, 8,9. 9, lo, 11, 11, 13, 6, 14, 14, 15. 16, 16, 16, 17, 10, 

6  18, 18, 20. 21. 2 1.21. 22. 15. 23. 23. 24. 17. 25. 25. 35. 27, 27. 28, 28 .29. 

7  30,30,32,32,33,33,34,36,36,37,38,39,39,40,40,41,41,42.43,43.44, 

8  45,37,46,38,47.39.48,49,49,40,50.51,51,52,52.53, 

9  3. 4 .5, 7,3, 8, 9,4 .10.1 1.5, 12, 14, 14, 8, 15, 16, 9, 10, 17. 18, 18, 12, 

1  19.21,14,15,22,23.23.17,24,25,25,19,26.21,24,28.25,29,30,26, 

2  31  ,29,33,30 ,34,31 ,37,37,38,39. 22, 40,23,41,27, 42*43 .28, 44,32. 

3  46, 36, 47, 37, 48, 38, 49, 40, 50, 60, 51,42, 52, m3, 53, 44  ) 

READ  lOOO.ICOMENTI I ) ,1-1 ,10) 

1000  FORMAT ( 10A8  ) 

PRINT  1001, (COMENTI I), 1-1,10) 

1001  FORMAT (1H1.10A8) 
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TT  I  Al  ViMbt  *■ 


V  Ml*  '  < 


‘4  l  I  t  i-  1 


c 

c 

( 

c 

c 

c 


X  TO  T  Al  - 


Of  AD  AND  l’M|M 


JTOTA*.  •  158 

Mt  AO  1  vi  O  3  «  V  F  .i.AMMA.t  1  I  >  .ANUt  1  )  .tit  1  A 
IF  I  VF  •  *  0 •  •  I  (.0  T  r  9«> 

XNU I  ?  I  *  XNU (  1  I  /"*  T  A 
l  1  ?  )  *  till  /uANMA 


tPt  1  (  1  . 1  I  » 
tPT|l|.?l  « 
l PT II ?. I »  * 
F  PT  ]  (  ?.? »  • 
fPFH3.lt  * 
f  PT  l I  3.?  I  * 
till  •  till 
t  I  ?  )  *  t  I  ?  l 


-<NJI  1  l 
-AMI  I  ?  I 
tPllll.il 
t  PT  1  I  1  ./  I 


x  Mj  i  ii 


/  I  1 . -XNUI  1  I  •  •  7  I 
/  I  1  .  -  A  Nell  ?  I  •  I 

XNU  I  1  I  /  I  l  .  -XNiJ  I  1  I  I 


X  NU  I  7  I  =  XNU  I  7  1/  I  1  .  -  XNU  I  I  I 
1003  FORMAT  *  SF  1 J.A  I 
PRINT  inis 
PRINT  10 16 

PRINT  1017.  VF.  GAMMA,  tl.  XNUl.  bt  T A 

1016  FORMATIIm  ,13X.?mvF.  1  o  X  .  6HO  AMM  A  .  13X./HU. 

1017  FORMAT  I  1M  .6  'I  IS. 8  I  I 

1018  FORMAT  I  ////I 


I  1  X  .<.HXM.il  • 


1  l  A  i.  Ht?  t  I  A  I 


S3  ■  SORT  13.1 
530?  ■  53/?. 

EPI  •  till 

EPI I «E I ?  1 

XNUPI  ‘  XNUI1I 
XNUPI I >  XNU I ? I 
DO  ?00  I  ■  1.97 
THI  |  )  »1  . 

ALF I  II "0. 

Dtl.ll  »  1000. 

D I  I • ?  I  ■  l o  jo . 

P  I  I  .  I  l  «  o. 

PI  I  .?  I  ■  O. 

?00  CONTINUE 


P  I  6  A  .  1  1 

S  1  00  0 

P  1  6  A  .  ?  1 

•  1000 

0 1  6  A  •  1  1 

•  0. 

0  I  6  A  .  ?  1 

=  0. 

PI97.1  1 

»  1  lOO 

P  1  9  7  .  ?  1 

•  1000 

0(97,1  1 

«  J. 

0I97.?I 

•  . 

P(  3A.  !  1 

.  100u 

P( 3 A , ?  I 

«  1000 

0  1  A  A  .  1  1 

«  0 . 

t)  (  3  A  .  ?  1 

»  "  . 

PI  1  .  1  1 

=  1  l,v 

PI  l . ? I 

•  1  vi  in 

D  1  1  .  1  1 

*  v<  . 

01  1 .?  1 

s  J  . 

I  *  >1 
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DO  201  J  =  1 .in 

1  *  I 

DM.2)  *0. 

PIN2!  *10^0. 

0(98-1.2)  =0. 

9(98-1.2)  *1000. 

201  CONTINUE 
I  *  0 

DO  202  J  *  1.8 
I  *  !♦  BUMP1  ( J  i 
D(I.l)  *0. 

D( 98-1.1)  =0. 

P  (  I  .  1  )  *  1  . 

PI98-1.1)  =  1000. 

202  CONTINUE 

0=  SORT (2»*S3#VE/PI ) 

Kill  *  S302 
Y(  1  )  *  .8 
DO  210  1*1.4 

K(I*1)  *  S302  -  R/4.*C0S(P1*( 1-11/6.) 

V ( 1 ♦ 1 »  =  .8  -  R/4.  *S1 N ( P I • ( !-l 1 /6. ) 

210  CONTINUE 

C 

DO  220  1=1.7 

* ( I *8  I  *  S302  -  R/2.»  COS  I P|»«  1-11/12.) 
Yl|49>  *  .8  -  R/2.«  SIN(P!»(  1-1  )/12.  1 

C 

X  < I ♦ 12  t  *  S302  -  3.»R/4.»C0S(PI«I 1-1 1/12.) 

YII.121  «  .5  -  3.*R/4.*S1N(PI«( 1 -1 1/12.  ) 

C 

X ( I ♦ 19  I  *  S302  -  R  *  COSIPI«l 1-1 1/12.1 
Vl|*19l  ■  .8  -  R  •  SINIPl*( T-l 1/12.1 
220  CONTINUE 

X ( 34 )  «  S302 
V ( 34 )  *  -  .8 
X ( 3 1 )  *  S302 

V  (  3 1  I  «  ( V  <  2b  I ♦ V ( 34 ) )  /  2. 

XI49)  «  —.8*  T AN ( P I / 6 .  I 

V ( 49 )  *  .9 

DX  *  ( l.-R) /( 2.»C0S(PI n . ) ) 

X  (  36  )  *  X  1  48  )  ♦  DX 
V I  36 )  *  .9 

X ( 3  9 )  =  I X  (  20  )  *X  (  36  > )/2. 

Y  (  33  )  *  .9 

C 

DO  230  I  *  1  .4 

X(  1.43)  •  (4  -I  )•  X ( 4  8  J  / 4 . 

VII .45 )  ■  (4  - 1 ) •  Y ( 4 3  )  Z4. 

230  CONTINUE 

C 

DELX  *  X ( 46 )  — X (431 
DELV  =  V ( 46 ) -Y (491 
DO  240  I  *  1.8 
XI 14361  »  XI 1*39)  .DELX 
Y( 14361  »  Y( 1439)  *DELY 
240  CONTINUE 

XI 32 )  ■  X ( 44  )  4(X( 34I-XI44)  I /3. 

VI  32 1  ■  -.9 

X( 33 )  «  2«*X I  32 )  -  XI44I 
Y 1 33  1  ■  -.3 

X ( 2 7 )  •  XI23)  ♦  (X(  32  )-X(23)  )/3. 

V 1 27 )  •  Y ( 23  )  ♦  I  »(;32  1-YI23  »  >/3. 


109 


X  (  2  8  )  * 

2.*X(27)-XI23) 

Y  (  2  8  )  = 

2.»Y ( 2  7 ) -Y( 23  ) 

X  (  29  1  = 

X ( 28 1  ♦ ( X<  X 1 ) -X ( 28  )  ) n 

YI29I  * 

Y( ?fl I  ♦ ( Y ( ? 1 ) -Y ( 26 ) 1 /? 

X  (  30 )  = 

2. *X ( 29 1 -XI 28  1 

YUO)  = 

2.*Y<29|-YI ?8  ) 

DO  2SU  1 

-Su , 97 

XIII  -  - 

XI98-I  ) 

YU  )  -  - 

YI98-I  | 

230  CONTINUE 

t 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


PRINT  DUT  NODAL  DATA 
I  *  1 

1?  CONTINUE 
LINE  *  A 
PRINT  1010 
1’  CONTINUE 

PRINT  1011.  I.  XII).  Y(I).  Pll.ll.  P I  I • 2 ) «  Dll. II.  0(1.2). 

1  TH( I  )  .  ALFI  I  ) 

I  «  IM 

IF(  I.GT.KTOTAL  )  GO  TO  14 
LINE  *  LINE  ♦  2 
IF  I L  FNE .OT .56 )  GO  TO  12 
ro  to  n 

14  CONTINUE 

1011  FORMAT ( 1H  I  4 . 7 (  3XE 1 1  .4 ) .3X ,F1 1 .2/ I 

1010  FORMAT (5M1NODE.7X.1HX.13X.1HY.13X.2MP1.12X.2MP2.12X.2HD1.12X.2MD2. 
1  8X.9HTHICKNCSS.9X.5HALPHA  /) 

I  -  NUMBER  OF  NODE 

X  -  X-  COORDINATE  OF  ITH  NODE 

Y  -  Y-  COORDINATE  OF  ITH  NODE 

PtI.l)  -  KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  1  DIRECTION 

PI  1.2)  -  KNOWN  AND  UNKNOWN  FORCE  COMPONENTS  ALONG  2  DIRECTION 

DU. II  -  KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  1  DIRECTION 

DU  .2)  -  KNOWN  AND  UNKNOWN  DISPLACEMENTS  ALONG  2  DIRECTION 

ALFU)  -  ANGLE  BETWEEN  X  DIRECTION  AND  1  DIRECTION  (POSITIVE  WHEN 
COUNTER-CLOCKWISE) 

Tm(|)  -  PLATE  THICKNESS  AT  ITH  NODE 

GET  MSK  MATRIX 
JP  •  0 

DO  27  J-l »K TOTAL 
DO  27  I -It  2 

IE  (PI J.l I.GT.PK)  GO  TO  27 
JP  ■  JP a  1 

MSK  IJP I  •  2  •  I  J-l  )  ♦  I 
27  CONTINUE 

MSK  IS  MATRIX  OF  INOICES  OF  KNOWN  FORCES 
IF  FORCE  P  IS  UNKNOWN.  IT  IS  INPUT  AS  1000* 

NOW  READ  IN  TRIANGLE  DATA 

JTCTAl  -  TOTAL  NUMBER  OF  TRIANGLES 
DO  19  1-1.79 
00  19  J-l. 3 
19  LU.JI  *  JLII.JI 
00  260  I-  80.136 
DO  260  J-  1.1 
LU.JI  •  98  -  LI  139-1  . Jl 
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n  r. 


260  CONTINUE 

C  L  ( J  *  1 )  -  INDEX  OF  THE  FIRST  NODE  OF  THE  JTH  TRIANGLE 

C  LIJ.2)  -  INDEX  OF  THE  SECOND  NODE  OF  THE  JTH  TRIANGLE 

C  L ( J « 3 )  -  INDEX  OF  THE  THIRD  NOOE  OF  THE  JTH  TRIANGLE 

C 

DO  20  1  =  1 *  JTOT AL 

I F  (  I.LE.36.0R.I.C.E.I23)  GO  TO  300 

EXI I)  =  EPII 

EY(  I  I  *  EPII 

NUXY(I)  =XNUP I  l 

GXY(I)  «  EPI 1 /<2.*< 1 ,+XNUPI I ) ) 

GO  TO  310 
300  EXI  I  )  =  EPI 
EY( II  •  EPI 
NUXYI  I  I  »  XNUP1 

GXYIII  =  EPI  /  (2.*< l.+XNUPI II 
310  CONTINUE 
20  CONTINUE 

C  PRINT  OUT  TRIANGLE  DATA 
LINF  «  4 

PRINT  1012  ! 

DO  24  I « 1 « JTOTAL 
IFILINE.LT. 54)  GO  TO  22 
LINE  «  4 
PRINT  1012 

1012  FORMAT ( 1H1 tSHTRI ANGLE .4X6HN0DE  1.3X.6HNODE  2.3X.6HNODE  3.1SX.2HEX* 
1  18X  2HE Y  * 16X .4HNUYX  * 17X  * 3HGX V//  I 

22  LINE  «  LINE*2 

24  PRINT  1023.  I.  (L(I.JI.J=1.3l»Cxm.Evm.NUYXIII.GXVII| 

1023  FORMAT  I  1H  *5X  .  I  3 .7X  .  I  3 .2  <6X  •  131  .4  <  3X  .El  3 .1*  1  / 1 


MSI2E  «  1 36 
KREM  «  6 
N  »  25 

M  >  MSI2E  /  N 
IF(KREM.NE.N)  M  «  M*1 

C 

LiMim  •  i 

LIMK2I  ■  4 

LIM1I3)  ■  23 

LIMK4)  ■  30 

LIMII5)  •  74 

LIM1I6  I  »  96 

LIMK7)  ■  128 

LIM2I7)  •  138 

LIM2I61  ■  139 

LIM2I3I  ■  122 

LIM2I4I  •  91 

LIM2I3I  ■  67 

LIM2I2)  •  37 

LIM2I1I  •  12 


C  PRINT  OUT  PARTITION  INFORMATION 
PRINT  1008 

1008  FORMAT!  1H1.12X.20HTRIANGLES  CONSIDERED) 
DO  31  l»l.M 
ISI2E  •  N 

IFII.EO.lt  IS12E  •  KREM 
PRINT  1009*  l*LlMll|l*LIM7m*  ISIZE 
31  CONTINUE 


lit 


^  r\  r\  n  n  -i 


10ft9  FORMAT  I  1  )H  PARTITION. 6X  SHF  I RST . 2X ,2HT0 , 2X .4HL AST  ,  6X »9HD I  MENS  I  ON/ 
1  4X.I3.11X.I3.6X.I3.10X.13I 

00  28  I  *  1. ((.TOTAL 
ALF (I)  *  AlF ( I) /RAO 
26  CONTINUE 

0  AIL  ANGLES  NOW  IN  radians 
OO  400  1*1.  JTOTAL 
C  r  IS  A  TRIANGLE  counter 
KK3  *  2 

JF C  I.LE.36.0R.I  . Gt  .  123)  KK3  *  1 
fill  *  l./EXI  I  | 

B 12  *  -NUYXI  II  /  EYII) 

B22  ■  1 .  /  EV(  11 
B 33  *  1.  /  GXYI  I  I 
DELTA  *  B11»B22  -B 1 2**2 
CPI  1.1 )  =  B22  /  OFLTA 

CPI2.1 I  «  -  B 1 2  /  OELTA 
CPI3.ll  *  0. 

CPI1.21  =  CPI2.1  I 
CPI  2.2  I  *  B 1 1 /  OELTA 

CPI  3.2 1  *  0. 

CPI  1.3)  *  0. 

CPI  2.3 1  =  0. 

CPI  3.3  I  *  1./B33 

C  NOW  IN  CI3.3I  .  MATRIX  I 

30  CONTINUF 

THOMEG  -  XILI I .2 l)*YILI I .31)  4X I L I  I ♦ II  I • Y I L  I  I . 2 )  I 

1  ♦  VILI I . 1 1 l*XIL( I .31  I  -XILI l»3ll*Y«LI  1. 21  I 

2  -  XILI 1.1  I  l*YILI  I. 3| |  -YILI 1.1  I )*XILI 1 .2)  I 
THOMEG* ITHILI 1.1  I  (♦THILI I .2  I  I *TH  I  L  I  I. 3)1 )/  6*  *  ThOMFG 
XI2  *  X  I L « I . 2  I  I -  XILII.1I1 
X  1 3  «  XILI I .31  I-  XILI  I  .1  I  I 
ETA2*  Y I L I  I  *  2  I  I  -  YILI  I  .1  I  I 
ETA3*  YILI 1*31  I-  VILII.lll 
DELTA  ■  X I2*E T A3  -  XI3*ETA2 
DO  38  II  -  1.3 
DO  38  JJ  *  1.3 
AIIl43.JJ.il  «  0. 

.  AIII.JJ43.1)  «  0. 

AIII43.JJ.2I  *  0. 

AIII.JJ43.2I  *  0. 

38  CONTINUE 
All. 1.11  «  1. 

A 12 .1 . 1  I  •  -IETA3-ETA2I  /  DELTA 
A I  3. 1.1  I  ■  IXI3  -  X  I  2  I  /  DELTA 
All. 2. 11  «  0. 

AI2.2.1I  •  ETA3  /  DELTA 
A 1 3 .2 . 1  I  «  -X  I  3  /  OELTA 
All. 3. II  «  r. 

A 1 2 . 3 . 1 1  ■  -ETA2  /  OELTA 
A I  3 . 3 . 1  I  «  X  I  2  /  DELTA 
DO  39  II  *  1.3 
DO  39  JJ  «  1.3 

Alll43.jj43,l)  ■  Alll.jj.il 

AIII.JJ.2I  *  AUJ.II.il 
A«  |  I43.JJ.3.2)  *  AIJJ.II.il 

39  CONTINUE 

TRANSPOSE  OF  INVERSE  OF  A  NOW  IN  All. 1.2  I  .  A  INVERSF  STILL  IN  A 
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rt  r>  o 


r 

c 


c 

c 


CALL  MXMULTIDO.A.KMX (1.11, 3. 6. 6) 

CALL  MXMUL TIC.FPTII  1  .KK3I.SITI  1 ♦ I I  »  3  »  3,  1  ) 

CALL  MXMUL TIC.KMXI  1  .  1  )  »CDA (1*1,11.3,3,6) 
PRODUCT  C  *D*  <  A  *  •  —  1 )  NOW  IN  C  DA  <1*1*1)*  I  T-(  TRIANOLt 

CALL  MXMULIIAI 1,1,2) ,DT  .A, 6. 6, 3) 

CALL  MXMUL  T  I  EP T 1  1 1 ,<K 3  I ,CDA I  1,1,M.PTm,1,3,M 
CA.L  MXCONIPTm.PTM.THCMFG.I  ,6  I 
CALL  MXCON ( A  »KPR ( 1 . 1 . I i .TH0MFG.6 .3  I 
CALL  MXMULTIXPRI 1 .1 . II ,CDA(  1,1 , I  )  ,  KM x  ,6  »  3  •  6  I 


MATRIX  KM) 

NOW  IN  XMX.  TRIANGLE  I 

DO  40  II 

=  1,6 

DO  40  JJ 

*1.6 

TIII.JJI 

*  0. 

40  CONTINUE 
Til *11 

*  COSI ALE (L (  1 . 1  )  1  I 

TI4.1I 

*  sinialfili i.i m 

T (? ,2  1 

*  COSCALHL!  1.21  1  1 

TIS.2I 

«  SIN(ALF(L< I .?) I  1 

Til. 31 

«  COS( AlF 1 L I  1 , 3 1 1  I 

T  ( 6 . 3  1 

■  SINIALFILI I .3) 1 1 

Til, 41 

«  -TI4.1I 

T (4 ,4  1 

*  T  1 1 » 1 1 

T  ( 2  »  5  1 

»  -TI5.2I 

TI5.5I 

*  TI2.2I 

T  (3,61 

■  -TI6.3I 

T  (6  ,6  1 

■  TI3.3I 

CALL  MXMULT  I XMX , T ,A ,6,6 ,6 1 

CALL  MXMULT! T.PTM.PTl 1 . 1) .6.6. 1  1 

TI4.1I  « 

-  TI4.1I 

TI5.2I  ■ 

-  T  1 5 , 2  1 

TI6.3I  » 

-  TI6.3I 

Til. 41  . 

-  Til. 4| 

TI2.5I  « 

-  TI2.5I 

TI3.6I  « 

-  T I  3 ,6  1 

INVERSE  OF  T  NOW  IN  T 

CALL  MXMULT  IT, A, KPRIl, 1,1 1,6.6.61 

c 

C  X -PRIME  NOW  IN  XPR  .  A  HAS  BEEN  CLOBBERED. 

400  CONTINUE 
RETURN 

600  PRINT  1051. II. JJ.II 

1051  FORMAT (  1M1 »  5H  EF ( . I  3 . 1M, 1 3 , 7H I  «  tR<.13,6HI  .  0.1 
STOP 

000  CONTINUE 

PRINT  1050  .  J 

1050  FOPMATUHl  35HCOULD  NOT  INVERT  MATRIX  T  1  ,TR  I  »NC>LE  .  I  3  I 
950  CONTINUE 

REWIND  20  CASE  3 

STOP 

END 


1406  CARDS 


SUBROUTINE  STRESA 


C 

c  this  subroutine  derives  and  prints  stresses 
c 

COMMON  m  SI  32.32  .SI .LI  160 . 3 ) .G I  32 >  .SPACE < 20 ) »XNU I  2  I  . E I  2 > 

1  •  NUE ( 3 • 16w I  *X(1S5).Y(155I  <C0A( 3.6*1601 

2  •  KPRI6.6.1601  .MSM310)  .  JTOTAL.N.KREM.M  ,  IMR,  IPL 

3  .  P1155.2)  .01155.2)  .  EPTI3I.  PTI6.160I.  SITI3.160) 

COMMON  /STRSS/  ALFI155)  .  MSI2E  .  P  .  GAMMA 
EQUlVALENCEIXNUI 1 1 .XNUl  I .  (  E  I  1) .E I ) 

COMMON/LIM/  LIM1.  1)1  .LIM2I  lC'l 
DIMENSION  DVXI6I.  SIG0UTI632) 

EQUIVALENCE  IS.SIGOUTI 
DIMENSION  SPI32.1JI 
EQUIVALENCE  (NUF.SPI 
TYPE  REAL  KPR 

EQUIVALENCE  (S.SIG)  •  (SI931 I .PSTR)  .  ISI1661 I.X0I.ISI2161 I »Y0) 
EQUIVALENCE  ISI2461 1 .DEL  I  «  ISI276l).0X) 

DIMENSION  ERRI 3101 

DIMENSION  0XI6I  .  SIGI6.310)  •  PSTRI3.310) 

DIMENSION  XOI300I  •  Y0I  300I,  DELI310) 

DIMENSION  KS22I  32.96  I  .PZI160) 

EQUIVALENCE  I KPR.KS22 ) 

TYPE  REAL  KS22 
DATA  IPX. 999.1 

Ell)  ■  EI1I«M  l.-IXNUI 1  I/I l.fXNUI 1 ) >)*«2) 

E 12  I  •  El  2  I*  I  l.-IXNUI 21/1 l.^XNUI 2  I  1 )**2 I 
C  REMOVE  GAPS  FROM  SP I  32 . 10 1  «  DEL  (  3 10  1 
DO  5  J-l.KREM 
DEL  I J I  ■  SPIJ.1I 
5  CONTINUE 

KLOC  •  KREM  -N 

DO  10  I  >  2.M 

KLOC  «  KLOC  ♦  N 

DO  10  J  •  l.N 

DEL  I KLOC* J I  ■  SPIJ.I) 

10  CONTINUE 
PRINT  1010 

1010  FORMAT  1 1M1  fSCiX.l  3MDI  SPLACEMENTS  »  /  /  1 
NOEL  ■  MSI2E/7 

JCNT  ■  0 

DO  IS  J-l.NOEL 

JCNT  ■  JCNT  ♦  1 

IFI  JCNT.GT.16)  GO  TO  16 

JFIR  •  7* I J-l I  ♦  1 

JLAST  «  JFIR  ♦  6 

PRINT  1011  t  IK. K.JFIR, JLAST I 

1011  FORMAT  1 1M  .71 0X.6HDEL I » I  3  »  1M 1  )) 

PRINT  1012*  I0EL1K).K*JFIR. JLAST) 

1012  FORMATIIM  .7I2X.E14.71/) 

GO  TO  15 

16  PRINT  1010 
JCNT  •  0 
15  CONTINUE 

LOCI  •  7*N0EL*1 
LOC 2  »  MSI2E 

IFIL0C1.GT.L0C2)  GO  TO  20 
PRINT  1011.(K.K«L0C1 .L0C2) 

PRINT  1012.  10ELIKI.K«L0Cl»LOC2) 

20  CONTINUE 

DO  855  I>1.JT0TAL 
J  »  I 
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HKJ  •  2 

JFI  J.LE.36.0R.I.GE.123)  KK3  ■  1 
KZ  ■  0 

DO  831  KK  >1 .3 
00  032  KJ  >1.2 
KZ  «  KZ  ♦  1 

IFI  P ( u < J.KKI.KJI.GT.PKI  GO  TO  828 

IF  I 2«  (L I  J.KK 1—13 *K J-MSK  I  IPL  )  )  801  .  802.  803 

802  1 12  «  IPL 
GO  TO  827 

801  IMR  •  IPL  -  1 

806  IFI2«<L<J*<K)-1)  *KJ  -MSKIIMRI)  804.  805.  805 
805  II 2  «  I  MR 

IPL  ■  1MR 
GO  TO  027 
004  I  MR  •  I MR  -  1 
GO  TO  006 

803  IMR  •  IPL  ♦  1 

807  IFI2«(L< J.KK >-l I  *KJ  -MSK(IMRI)  805.  803.  BIG 
810  IMR  •  IMR  ♦  1 

GO  TO  807 

827  DVXIKZl  «  DELI  1121 
GO  TO  832 

820  DVXIKZl*  DILI J.KK). KJ) 

832  CONTINUE 

DXIK2-1 1  •  DVXIK2-1  )*COSI ALF  (LI  J.KK) )  l-DVX  (KZ  )  «S  IN  I ALF I L  I  J.KK  I  )  > 
DXIKZ I  ■  DVX  IKZ_1)*S!N(ALF(L(J.KK))  I  ♦DVX I KZ  )*C0SIALFIL(J.KK))) 

031  CONTINUE 
DX2  •  DX 1 2  I 
DXI 2 )  •  DX I  3  ) 

DX( 3)  ■  DX<5> 

DXI 5)  ■  DX (4  I 
0X14)  >  DX2 

CALL  MXMULTICDAI 1.1 .1 ) *DX.  SIG 1 1 . 1 1 .3 .6 . 1 1 
DO  838  J-1.3 

838  SIGIJ.l)  «  SIGIJ.I)  -  SITU. II 
SIGI4.il  *  SIGI3.il 
Y1  *  VILII.l )) 

Y2  •  YILI 1.21 ) 

Y3  *  YILI I .3  I ) 

AREA  -  (XILI 1.1) )•(Y2-Y3)♦X(L(I.^II*(V^-Y1)♦X(LI 1.31  l*(Yl-Y2)|/2. 
SIGZ  *  I S I G I  1.1 ) +S IG I  2 .  I  I  )*XNU(KK3)/(  1 •♦XNUI KK  3 ) I ♦£ I KK  3  I 
SIGI3.I I  -  SIGZ 
PZII)  •  SIGZ*AREA 

C  SIGMA  NOW  IN  SIGll.I)  .  TRIANGLE  1 
X0(!)  «  0. 

YOU)  «  0. 

DO  040  K  «  1.3 
X 0 1  I  )  «  XO I  I  I  ♦  XILI I .Kl  I 
VOID  *  YOU)  ♦  YILII.KII 
840  CONTINUE 

XOII)  •  XOII)  /  3. 

VOID  -  YOU  I  /  3. 

850  CONTINUE 
855  CONTINUE 
ENBARZ  •  U. 

DO  060  1*1.158 
860  ENBARZ  •  ENBARZ  ♦  PZII) 

ENBARZ  *  SORT  1 3. ) /ENBARZ 
DO  865  1*1.632 

865  SIGOUT 1 1 1  *  SI GOUT  I  I )*ENBARZ 
I  •  1 
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870  CONTINUE 
PRINT  100C 
UNE  »  3 

1000  FORMAT ( 1H1 .2 < 8HT R I  ANGLE .6* • BHCTN TRO I D  .9X  ,  1 2HVFC TOR  SIGMA.  1  OX  1/  ) 

871  CONTINUE 
II  ■  I ♦ 1 

00  880  J»l.<* 

GO  TO  (873.874.87S.875I.  J 

873  PRINT  1001.  !•  XU(I).  S I G ( J . II  .  !  I  .  X  0  (  1 1 ) .  SIG(J.II) 

GO  TO  878 

874  PRINT  1002.  VO (II • S !G( J • I  I  .  VO(II).  SIG(J.II) 

GO  TO  878 

875  PRINT  1003.  SIGIJ.II.  SIGIJ.Itl 
878  CONTINUE 

880  CONTINUE 

LINE  «  LINE  ♦  6 
I  ■  !♦  2 
PRINT  1004 

1001  FORMAT  I 1H  2I5X.I3.F14.6.  7X . F 1 5 .8 . 1  OX >1 

1002  FORMAT ( 1H  2(8X.F14.6.  7X • E 1 5 .8  •  1  OX  I  I 

1003  F0RMATI1H  2l29X.E15aB.lCXn 

1004  FORMAT ( / I 

IF(  I.GT.JTOTAU  GO  TO  890 
IF  (LINE. GT. 54)  GO  TO  870 
GO  TO  871 
890  CONTINUE 

WRITE  (201  (SIGOUTI 1  I. I-1.316)  CASE  3 

SIGMA  -  0. 

00  900  I  ■ 1  •  JTOTAL 
SIGMA  •  SIGMA4PZII) 

900  CONTINUE 

EC  -  SIGMA/SORT ( 3a  I 
CHI  «  EC/El  II 
PRINT  1017  .  CM! .EC 

1017  FORMAT (  7H1  CH|>.  E13.6.4X.6H  EC«.E13.6I 

“PINT  8787.  ENBAR2 

8787  FORMAT ( //23H  NORMALIZATION  FACTOR  >.2X.E15.7) 

RETURN 

END 


116 


WWW  WWW 


SUBROUTINE  CMOLA 


C  THIS  ROUTINE  SOLVES  SU  =  G  .  WHERE  S  IS  A  T R I -0 1  AGONAL  MATRIX  IN 
C  SUBMATRICFS.  WITH  ELEMENTS  OE  OPDF  P  N. 

C  SIS  KNOWN 

C  SP  IS  A  VECTOR  OE  DIMENSION  (NXV)  «h[ PE  M  IS  ThE  nu^BE p  OF  DIVISIONS  OF 
C  C  IS  WRITTEN  ONTO  TAPE  AFTER  DFPIVATI'lN  )N  T  <F  FGRwARD  PASS* 

C  AND  READ  BACK  IN  ON  THE  BACKSWEEP 
C  Slltl.l)  INITIALLY  CONTAINS  SU.I-1) 

C  S  f  1  •  1 .  ?  I  INITIALLY  CONTAINS  Sll.I  I 

C  Sll.I.*)  INITIALLY  CONTAINS  Si  1.1*11 

C  SP  CORRESPONDS  TO  P  IN  THE  WRITEUP  pv  GAT?  WOOD  ON  thi  TCPWARi)  PASS. 

C  ON  The  BACKSWEEP.  IT  CORRlSPONDS  TO  u. 

COMMON  /l/  SI  32  .32. !>  )  .L  (  160.’  I  .0(3?  1  .SPACE  I  2r  '  .XNUI?  '  .E 12  ) 

1  .  NUFI3.16U)  *Xt 199  I  *V<  199 ) «COA( 3*6. 160) 

2  .  XPKI6.6. 160 > .MSK I  310  I .JTOTAL .N.KRf ,  imp,  [Pl 

?  •  PI195.2I  .DI15*-. 2)  .  C.PTI3),  PTI6.160).  SITE  3.14.0) 

COMMON/LIM/  LIM1I10I.LIM2I 10) 

DIMENSION  SP I  3? . 1 0  I 

equivalence  inue.spi 
TYPE  PEAL  KPR 
DIMENSION  Cl  102*1 
EQUIVALENCE  I  SI  409 / ) . C  » 

DATA  IXLIMIT  *1.E-«I 
REMIND  9* 

N2  ■  ?»N 

ARE M2  a  2*KREM 

DO  30  ICVCLE  a|.M 
CALL  BIGMXAI ICYCLE ) 

IE  I ICVCLE-2 I  1*2.3 
1  K 1  a  KREM 
A3  a  A*EM2 
GO  TO  10 

I  Al  a« 

A2  ■  AREM 
A3  a  N? 

GO  TO  6 
3  Al  aN 
A2  aN 
A3  aN? 

A  CONTINUE 

A  IE  I UN  I T .96  T  6.7  .600.  601 
6  GO  TO  3 
T  CONTINUE 

CALL  NRNUlTiSU.1.1)  .  311*1.9)  .  Sll.1.3)  .K1.k2.K1i 
311*1.91  CONTAINS  C  FROM  LAST  CYCLE 

CALL  NXSUB I S I  1  •  1  .2  )  •  Sll.1.3)  .  311. 1.2)  .Kl.Kl) 

10  continue 

Bll.ll  NOW  IN  311*1*2) 

CALL  INVERT <3(1 *1*2)  •  Al  •  A3*  AL|M|T  •  FLAG) 

IE  IELAG.NE.U.)  GO  TO  900 

C 

C  INVERSE  OE  1)11*11  NOW  IN  311*1.2) 

C 

IE  « ICVCLE. EQ.l )  GO  TO  20 

CALL  MXMUL  T I  31 1 . 1 • 1  I  «3P 1 1 • ICVCLE  ~ I  I  .  Sll.1.3)  •  N .  *2  •  II 
CALL  MXSUB  IG  .  Sll.1.3).  G.  N.  1) 

20  CONTINUE 
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n  r>  o  o  r> 


CALL  MXMULl I  SI  1 . 1  .2  I  •  G  ICVCLt  I  *  (Cl  .  K 1  .  ll 

If  C  ICYCLE.Gl.M)  GO  to  3S 

CALL  MXMULt  ISI1.I,?i  .  (1.  1.41  •  Sll.1.6).  K 1  .  K  1  •  N) 

NSO  «  K1»N 

BUFFER  OUT  196.1)  ICIll.  CINSO  tl 

30  CONTINUE 
3%  CONTINUE 
C 

C  NO*  IN  BACK  SWEEP  «  SOL  V  I  NO  i  OH  li 
C 

DO  60  |  . 

JCYCLF  «  M-I*l 
IE  t JCYCLf.GT.l  I  GO  TO  36 
K 1  *  KR£M 
GO  TO  37 

36  K  1  ■  N 

37  CONTINUE 
NSO  *  Kl«N 

IF  (  JCyClE.EQ.M- 1 )  GO  TO  A  1 
BACKSPACE  96 

61  CONTINUE 
BACKSPACE  96 

BUFFER  IN  I  96 • 1  I  IClll.CtNSO  )) 

62  I F I  UN  IT*  96  I  63.  66. 700.700 

63  GO  TO  67 
66  CONTINUE 

UIMMSPIMI  .  CONSIDER  FIRST  IM-llTH  CYCLF 

CALL  MXNULTIStl.l.SI  .  SP(  1 • JCVClE+1  .*  »S<  1  ♦  1  . 1  >  .K 1  »N  .  11 
CALL  MX  SUB I SP I  1  • JCvCLE  )  «  St  1.1.1)  »SP 1 1 . JCYCLt I .  K1  .  1) 

60  CONTINUE 

UCNS.ll  NOW  STORED  IN  SPtN.ll  •  l-l.M 

RETURN 
SOO  CONTINUE 

PRINT  1000  .  ICYCLE 

1000  FORMAT  1 31  HI  COULD  NUT  INVERT  MATRIX  IN  RON.I2) 

STOP 

600  CONTINUE 

PR TNT  1001 .ICYCLE 

1001  FORMAT  1 37H1  ERROR  READING  C  INTO  CORE  ON  12.  7MTH  ROW.) 

STOP 

700  CONTINUE 

PRINT  1002.  JCVCLE 

1002  FORMAT  1 37H1  ERROR  WRITING  C  ONTO  TAPE  ON  12.  7MTH  ROW.) 

STOP 

ENO 
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SUBROUTINE  BIGMXAI ICYCLE) 

C 

C  THIS  SUBROUTINE  SEARCHES  THt  K-PP|Mt  MATRICES  BETWEEN  LIMII ICYCLE! 

C  AND  LIM2I ICYCLE  )  TO  SET  UP  THE  KREM  OR  N  ROWS  Of  S»K«22  REQUIRED 
C  BY  THE  EQUATION  SOLVING  ROUTINE  CHLSKv 

COMMON  / 1  /  SI32»32.*)»Lll60*3t.G(32t  .SPACE  I 20I.XNU(2).E(2' 

1  ♦  NUFI3,16'JI  .XI  ISA). YI lSSt.CDAI  1,6.1601 

2  •  KPR l6.6»160)*M5Kf310)»JTOTAL*N*<REM.**  .  I  MR .  IPL 

3  .  PI  133.21  .0(133.2)  .  EPTI3I.  PTI6.160I,  SIH3.160I 
COMMON/UM/  L  IM1(  1U  I  «L  IM21 101 
DIMENSION  SP I  32. 1UI 
EQUIVALENCE  INUF.SP) 

DIMENSION  KS22I32.96)  •  KS2H32* 

DIMENSION  0131201 

EQUIVALENCE  IS.KS22.Ot  •  (0.KS21) 

TYPE  REAL  KPR 
TYPE  REAL  KS22  .  KS21 
DATA  <PK  -  999.) 

IFIICYCLE.GT.lt  GO  TO  1 
ISHIFT  *0 
JSHIFT  >0 
K 1  ■  KREM 
K2  •  KREM  ♦  N 
GO  TO  109 

1  CONTINUE 

IF  (ICVCLE.EO.M)  GO  TO  3 
K1  >  N 
K2  ■  3*N 
GO  TO  2 
3  CONTINUE 
K1  «  N 
K2  ■  2*N 

2  CONTINUE 

IFIICYCLE.GT.2t  GO  TO  110 
JSHIFT  ■  U 
GO  TO  111 

110  CONTINUE 

JSHIFT  ■  KREM  ♦  IICYCLE-3)*N 

111  CONTINUE 

I  SHIFT  •  KREM  ♦  (  ICYCLE-2)*N 

ISHIFT  IS  A  BIAS  TO  FIT  THE  EQUATIONS  INTO  THE  CORRECT  ROWS 
JSHIFT  IS  A  BIAS  TO  FIT  THE  EQUATIONS  INTO  THE  CORRECT  COLUMNS 

109  CONTINUE 
C  ZERO  OUT  KS22.  KS71.  AS  REQUIRED 
DO  «  l-l.Kl 
GUI  ■  0. 

DO  •  J  -1.K2 
KS22II.J)  -  0. 

8  CONTINUE 
IPl  ■  1 

NLO  ■  LINK  ICYCLE) 

NHI  •  LIM2 I ICYCLE) 

DO  100  J-NLO.NHl 
00  100  l>1.6 

12  •  1 

II  •  I 

13  IF! 11-31  17.  18.  19 
19  II  -  11-3 
12  -  12*1 
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I  GO  TO  99 


GO  TO  l* 

in  is  .  i 
IT  .  I? 

IF  MPaiJOI.|?l-PM.oT.>). 

C  MFRE  IF  FORCE  IS  KNOhN 
PI  ■  PI L I J.3 I » I 2 I 
GO  TO  25 

17  I F I  11-21  2u.21.2l 

20  IS  «  1 
IT  «  12 

IF  HPILU.l  I  .  12  >-PK  )  .GT.O.  )  GO  TO  99 
PI  *  PILIJ.1I.I2) 

GO  TO  25 

21  IS  *  2 
IT  .  12 

if  hpilij«2i.12)-p«;i.gt.o.i  go  to  99 
pi  *  PILU.2I.I2) 

25  CONTINUE 

IF  <2«ILU«IS)-1 )*l I-MSK) IPL  I  )  101 .102. TCI 
TO?  Ill  *  IPL 
GO  TO  127 
301  I  MR  *  IPL  -  1 

3  Of  |F(2«(L<  l.tSI-l I  ♦  IT-MSKIIMRII  304.  305.  *05 
305  III  ■  I  ”9 
IPL  ■  I MR 
GO  TO  127 
304  IMP  ■  IMR-1 
GO  TO  306 
303  IMP  ■  IPL  ♦  1 

30T  IF  I2*ILU.IS)-1 )  ♦  I  T-MSK  I  IMP)  I  309.  309.  310 

309  111  •  IMP 
IPL  •  IMP 
GO  TO  327 

310  IMP  ■  I MR* 1 
GO  TO  107 

327  IF(  II1-ISHIFT.GT.K1I  GO  TO  320 
IF)  II1-ISHIFT.LT. I  I  GO  TO  320 
KS21 C  1 1 1-ISHlFT  I  ■KS21II 1 1-1  SHIFT  )  *  PTM.JI 
320  CONTINUE 

00  100  KJ  ■  1.2 
00  100  KK  «  1.3 

IF  I  IP  t  LU.KK  I  »K  JI-PK  t.GT.O.  I  GO  TO  20 
IF  I2*IL(J«KK)-1 )*K  J-MSk I IPL I )  II.  12.  13 

12  112  «  IPL 
GO  TO  27 

11  IMP  •  IPL-1 

6  IFI 2« ILIJ.KK 1-1  I  ♦  KJ  -  MSKIIMPII  4.5.3 
5  112  ■  IMP 

IPL  ■  IMP 
GO  TO  27 
4  IMP  ■  IMP-1 
GO  TO  6 

13  IMP  -  IPL  ♦  1 

7  IF  ( 2* I L U .KK I -l I  ♦  KJ  -  MSKIIMPII  5.  3.  10 
10  IMP  «  IMP  ♦  1 

GO  TO  7 

27  IF) | I1-ISHIFT.GT.K1  I  GOTO  99 
IFdIl-ISHlFT.LT.ll  GO  TO  99 
IF) I I2-JSHIFT.GT.K2)  GO  TO  999 

KS22I  Ill-ISHIFT.I  12-JSHIFT  I  ■  KS22  I  1 1 1  -  I  SHIFT  *  1 1  2- JSg|F  T  I 
1  ♦  KPRI  I.3*IKJ-1)*KK.J  ) 

GO  TO  99 


20  IFIDILI  J.KKt  .KJl.tO.O.)  GO  TC  09 
IFMI1-ISHIFT.GT.K1)  Gr  TO  9o 
I F ( 1 1 1 - 1 SH IFT.LT.l )  GO  TO  09 

KS21M 1 1-JSHlFT I  =  KS21 M I 1-1SHIFT )  -KPR II • I K J- 1  )  *KK  •  J  ) 

1  •  DILI  J.KK  1.IUI 

99  CONTINUE 
100  CONTINUE 

C  HAVE  EQUATIONS.  NOW  SHIFT  THt  SUH«AT«ICfc  TO  Tril  PROPER  POSITION  FOR 

C  SUBROUTINE  CHLSKY 

IF| ICYCLE.GT. 1 )  GO  TO  930 

C  Sll.l)  IS  (KRE*  *  KREM),  AM,?)  ;s  (kR|m  x  N I 
DO  410  J  *  1.  KPfM 
DO  410  I  =  1 .N 

LOCL  «  J  ♦  KRtM*< 1-1 ) 

LOCR1  *  J  ♦  32*1  l-l*KREM> 

C  SET  UP  SI  1 .2 )  IN  SI  1.1  .4  ) 

O(LOCL*3072l  *  CILOCR1! 

410  CONTINUE 

DO  420  J  *  1.  KREM 
DO  420  I  s  1  .KREM 
LOCL  «  J  ♦  KREM* I  1-1 ) 

LOCR2  *  .1  ♦  32*1  1-1  ) 

C  SET  UP  Sll.l I  IN  SI  1.1  .2  ) 

O ILOCL* 1 024 )  *  0 1 LOCR? ) 

420  CONTINUE 
GO  TO  46  0 
430  CONTINUE 

IF  MCVCLE.GT.2l  GO  TO  44C 

C  SI2.ll  IS  (N  X  KREM )  ,  SI  2.2 1  AND  SI2.3)  ARE  IN  X  N> 

K 1  ■  KREM 
GO  TO  450 
440  CONTINUE 

C  SI  I .1-1 1  .  Sll.l)  .  SI  I • 1  *  1 )  ARE  IN  X  N) 

K1  *  N 
450  CONTINUE 

C  SET  UP  SI  I CYCLE «ICVCLE*1 I  IN  Sll.l. 4) 

IF  1 1 CYCLE .EO.M)  GO  TO  461 
DO  460  1  *  l.N 
DO  460  J  ■  l.N 
LOCL  •  J*N»M-l> 

LOCR1  ■  J  ♦  32*1 I-1*K1*N> 

0 ILOCL* 3072 )  *  0IL0CR1) 

460  CONTINUE 

461  CONTINUE 

C  SET  UP  SI  I CYCLE . ICVCLE I  IN  Sll.l. 3) 

DO  466  1*1 <N 

DO  468  J*1.N 

LOCR2  *  J*32*l I-1*K1 1 
LOCL  •  J  ♦  N  «  (1-1 ) 

OILOCL*2048)  *  OILOCR2) 

468  CONTINUE 

C  MOVE  SI ICVCLE. ICYCLEI  TO  Sll.l. 2) 

NSO  *  N*«2 

DO  470  II-l.NSO 

01 1 1*1024)  >  Q I  1  1*2046) 

470  CONTINUE 

C  REARRANGE  SI ICVCLE . 1CVCLE-1 I  WITHIN  Sll.l.ll 
KLOC  *  0 
DO  480  !*2*K1 
KLOC  ■  KLOC*N 
DO  460  J  *  l.N 
OIKLOC*J>  »  SIJ.I.l) 
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480 

999 

1000 

1001 

9120 

9121 

9122 


CONTINUE 
RETURN 
CONT INUE 

PRINT  lOOO.lCVCLE  _ 

FORMAT  (Ml  * 3SH  BANDWIDTH  EXCEEDED.  PARTITION  R0W.I3) 

I  ROW  1  =  III  ♦  ! SHIFT 

JROWl  *  I  1 2  ♦  JSHIFT 

PRINT  1001.  I  ROW  1 .  JROWl 

FORMAT  I 1H  »4HK0w« . I  3 .6* . 7HC0LUMN* • I  3  I 

PRINT  912-.  III.  II2«  ISHIFT.  JSHIFT 

FORMAT  I 1H  »4H 1  I  1  * . I  3  «4HI I2=»I3*7HISH|FT=»I 3 . 7HJSH IF  T  * • I  3  I 
PRINT  9121.  (Cl.  *2.  ICRtM,  N.  M 

FORMAT  (  1H  . 3HIC  1  *  •  I  3.3MX.2*  •  I  3.SHKREM*.  ! 3.2HN*  •  I 3.2HM., 13  I 

PRINT  9122*!.  J.  I  PL.  IMR.  IS.  IT  ... 

FORMAT! 1M  ,2HI*.I3,2HJ*,I3.4H|PLS*I 3. 4H I  MR* . I?,3HIS*.I3.3HIT*.I3) 

STOP 

END 


SURROUT  inf  mxmijl  t  I  a.b.c  .v.n.f  > 

c  This  SUBROUTINE  MULTIPLIES  MATRIX  A  BY  MATRIX  tl  and  STORES  THt 
c  product  in  c.  1C  ( annot  rf  thf  SAME  as  a  or  r.» 
c 

c  A  IS  (M  X  Nl 
0  H  IS  (NX  K) 

C  C  IS  (M  X  (Cl 

DImFNSION  A(m,N)  •  H(N.K»  .  C(M.Xt 

0 

DO  1  1*1. M 

00  l  L=1.A 
C( I .L)  * 

DO  1  J*1.N 

C(I.L>  *  C ( I  *  L  1  ♦  AII.J)  •  b(J.L> 

1  CONT INUF 

return 

END 
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SUBROUTINE  MXSUB IA*B»C»M»N) 

C  THIS  SUBROUTINE  SUBTRACTS  MATRIX  H  FROM  MATRIX  A.STORFS  RESULT  IN  C 
c  A,  B.  AND  C  ARE  <M  X  Nl  IC  CAN  ME  THE  SAME  AS  A  OR  B I 

DIMENSION  A(M»N)  •  B(M.N)  •LtM.N) 

C 

DO  1  1*1  .M 

DO  1  J* 1 «N 

ClltJl  *  A(I.J)  -  B I I.Jt 
1  CONTINUE 
RETURN 
END 


SUBROUTINE  MXCON ( A ,B .X .M.N I 

C 

C  THIS  SUBROUTINE  MULTIPLIES  matrix  A  !MX*J  Nr  CONSTANT  I*  NfBUiT  IN  N 
C  A  MAY  BE  SAME  AS  B. 

C  THIS  SUBROUTINE  MULTIPLIES  .MATRIX  A  (MXNI  BT  CONSTANT  I*  RESULT  IN  N 
C  A  MAY  BE  SAME  AS  B. 

DIMENSION  AIMtNI  •  B(M.N) 

DO  1  I  *  1  *M 
DO  1  J* 1 *N 
Blt.JI-  X*A1 I • J > 

1  CONTINUE  "\  , 

RETURN 

END 
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bUBROUT INF  INVERT(B.K.X2.XMIN,FLAG) 


C  This  subroutine  sets  up  a  UNIT  MATRIX  adjacent  TO  B  I  X .X  ) 

C  ELEMENTARY  RON  OPERATIONS  ARE  THEN  PERFORMED  ON  THE  NEW  X  X  2K  MATRIX 
C  TO  REDUCE  BIX. XI  TC  A  UNIT  MATRIX.  THIS  WILL  PLACE  THE  INVERSE  OF 
c  the  matrix  bik.xi  in  thl  right  half  of  bix.?x> 

C  ON  EXIT.  THE  INVERSE  OF  B  REPLACES  H 

C  B9*S  N  ARRAY  OF  2*K*»2  LOCATIONS  CONTAINING  THI  MATRIX 
C  K  IS  THE  DIMENSION  OF  THE  SQUARE  MATRIX  n 
C  K2  IS  2«K 

C  XMIN  IS  THE  SMALLEST  ALLOWABLE  MAGNITUDE  OF  THE  PIVOT 

c  flag  will  be  returned  as  o.  if  the  inversion  went  off  ox 

C  Flag  WILL  BE  RETURNED  as  1L.  IF  A  PIVOT  ELEMENT  WAS  TOO  SMALL 

C  Flag  6 mould  be  tested  after  each  call  to  this  routine 

c 

DIMENSION  BIX.K2) 

c 

FLAG  ■  0. 

SET  UP  UNIT  MATRIX 

IFIK.GT.1I  GO  TO  2J 
IFIABSIBI  1.1  M.LT. XMIN)  GO  TO  10 
Bll.l)  ■  l./B'l.l) 

RETURN 

20  CONTINUE 
DO  1  I *1 »K 
DO  1  J* 1 *K 

BII. K+JI  ■  0. 

IFII. EO.J)  B 1 1 »K*  J )  •  1. 

!  CONTINUE 

FIND  LEADING  ELEMENT  WITH  GREATEST  MAGNITUDE 

DO  *  J»1.K 

M  .«  J 
N  ••  J*1 

IFIJ. EO.KI  GO  TO  21 
DO  2  L-N.K 

IF  I ABSIBIM. J) I.LT.AB SIBIL. J)l)  M*L 
?  CONTINUE 

21  CCNTINUE 

IF  IABSIBIM.JM.lt. XMIN)  GO  TO  10 
IF  I J.EO.K )  GO  TO  31 

INTERCHANGE  JTH  AND  NTH  ROWS 

DO  3  L-J.K2 
D  ■  BIJ.LI 

BIJ. LI  >  RIM. LI 
BIM.L I  ■  D 

3  CONTINUE 
31  CONTINUE 

ZERO  OUT  PIVOTAL  JTH  COLUMN.  SKIPPING  PIVOTAL  JTH  ELEMENT 

DIVIDE  JTH  ROW  BY  PIVOT 

DO  4  M.N.K2 
BIJ.M)  «  RIJ.MI  /  BIJ.J1 
A  CONTINUE 
DO  6  M* 1 .X 
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C  M  DE  TE  RM I NfcS  HOW  BtING  MODIHLIIt  ONI  WHOLI  BUI*  AT  A  TIMf; 
C 

IF  (  M.EO.J  I  GO  TO  ft 
DO  S  L*N.K? 

C 

C  L  DETERMINES  ELEMENT  IN  THF  vTH  RO,*' 

C 

HIM, LI  *  B(M.L)  -  •  B(JtL) 

5  CONTINUE 

6  CONTINUE 
C 

C  INVERSE  OF  B  IS  NO*  IN  RIGHT  hAiF  OF  fU  <  ,K 2 1 
C  NOW  MOVE  B  INVERSE  TO  wMt RE  M  WAS 
DO  7  ]«1«K 

DO  7  J«1.K 

B I  I  •  J I  >  B I  I  •  J+K  I 

7  CONTINUE 
RETURN 

10  FLAG  »  10. 

RETURN 

END 
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FUNDAMENTAL  CASES  FIVE  AND  FOUR  (LONGITUDINAL  LOADING) 
FUNDAMENTAL  CASE  5 


PROGRAM  LONTUD 
LONTUD  CASE  9 


this  program  solves  the  longtudinal  shear  problem 

COMMON  /l/  XlluOI.  YllOO).  NOIRI 200*4  I  *M*N*KREM*NN*NT •01)01* 

1  CAY(3*3*2ol  I (CENT  1200*2  I *AGI2 • •  CDAI2*9*200> * 

2  NTRIU00.10I.NUD.  NKD*  S 130 •  JO .9 I  »F0 I  JO  I  •  SPI30.19I 
COMMON/2/  VF 

DIMENSION  OUHIIOI  •  DMXTI4I*  0MXI6I 

DATA  <DMX  ■  0.,0.,l.,0..n.,l.(  .COMXT  ■  Oitl.vO.tO.vO.il. I 
C  ND I P ( I  * 4  I  -  MATFRIAL.  1  OR  2 

C  ND I R 1 1 • J I  -  JTH  DIRECT  I ON /NODE  IN  ITH  TRIANGLE  *IJ>l*9l 

C  NT  -  NUMBER  TRIANGLES 

C  NN  -  NUMBER  NCDES/OIRECT IONS 

C 
C 

c 

C  NUO  -  NUMBER  UNKNOWN  DISPLACEMENTS 

C  NKD  -  NUMBER  KNOWN  DISPLACEMENTS 

REMIND  20 

call  tape skipi 20*0*0 i 

call  TAPESKIPI 20*4*01 
30  READ  1000.0UM 
PRINT  1001 t  OUM 
READ  1002tAGI 1 1  * AGI 2 1  tVE 
1FCVF.EO.O.)  GO  TO  *00 
PRINT  1009* AGI  1 1  *AC(2 1  *VE 
M  .  » 

N  -  17 
KREM  ■  19 
NT  .  19B 
NN  «  *7 

NUO  •  (9 
NKD  ■  1* 

CALL  CONFIG 
PRINT  100* 

DO  100  1*1*14 
J  ■  B94I 

Hint  ioio*j*ediii 
too  continue 

LINE  ■  * 

PRINT  1004*1  J* J«1 *3  I • I J* J*1  *9) 

00  190  1*1 » 197*2 
IFILINE.LT. 941  GO  TO  120 
LINE  ■  4 

PRINT  1004*  I  J*  J*1 *31 *IJ«J«l»9t 
120  LINE  -  LINE  ♦  2 
I  I  •  I  4 1 

190  PRINT  1009*1*  INOIRI l»JI*J« 1*41*11 • (NOIRI 1 1 *JI »J*I*4I 
C 

C  PRINT  OUT  NOOE  INFORMATION 
C 

I  ■  1 

190  CONTINUE 
LINE  »  4 
PRINT  1007 
2 00  CONTINUE 

IFII.NE.97I  GO  TO  210 
PRINT  100B*  I*  XIII*  VII) 

GO  TO  219 


CASE  9 


CASE  9 
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210  ir?  =  I *2 

PRINT  1018*< IJ»X1J)»V!J)).J*I.IP2> 

215  I't+3 

I F ( I.GT.NN)  GO  TO  220 
LINE  =  LINE  ♦  2 
IFILlNE.GT.5f.)  GO  TO  190 
GO  TO  200 
220  CONTINUE 
C 

c  DERIVE  ALL  MATRICES  SMALL  K 
C 

DO  300  J= 1 .NT 
CALL  KSMALL(J) 

300  CONTINUE 

DO  400  1=1 .NN 
NTR I ( I. 10)*  0 
400  CONTINUE 

DO  500  I  *  l.NT 
DO  500  J  =  1.3 
K  *  NDIR( I.J) 

NTR I  (  X . 10 )  »  NTR I I K  .  1 0  >  ♦  1 
L  «  NTR I !  X  »  1 0  ) 

NTRKK.L)  =  I 
500  CONTINUE 
C 

call  puchol 

GO  TO  30 

1000  FORMAT! 10A8) 

1001  FORMAT I1H1.10A8) 

1002  FORMAT! 3E15. 4) 

1003  FORMAT  I 30X.3HG  1.20X.3MG  2.20X.3HV  F/10X .3 (8X.E15.5 I ) 

1004  FORMAT! 1H1.  8MTR IANGLE .3 l 2X .5HN0DE  .11) «4X .8HMATER I AL . 10X . 

1  8HTR I ANGLE . 3 ! 2X  » 5HN0DE  .11) »4X .8MMATER1 AL/ • 

1005  FORMAT! 1X.2 1 5X . I 3.5X . I3.5X. I3.5X. 13  »9X • I  3 . 10X ) / ) 

1007  FORMAT! 1H1 .3  < 4HN00E.12X.1MX.12X • 1HT.8X I / ) 

1008  FORMAT I2X.I3.2I3X.F10.5)/) 

1009  FORMAT! /////. 4X . 1 5HNON-2ERO  KNOWNS./) 

1010  FORMAT ! 5H  ROW! . I2.2H) «.F1 1 .4 ) 

1018  FORMAT! IX. 3 1  IX . I  3 .3X .FI 0.5 . 3X .F 1 0.5 .8X ) / I 
950  CONTINUE 
REWIND  20 
STOP 
END 


CASE  5 
CASE  5 
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SUBROUT | NF  CONFIG 


C 

C 

C  CONFIG  CASE  5 
C 

C  THIS  SUBROUTINE  GENERATES  THE  COORDINATE  ANO  FORCE  CONFIGURATION 
C  FOR  THE  PROGRAM  LONTUD 
C 

COMMON  /}/  *(100).  Y(IOO),  NDIR  (  200.4  )  .M  ,N  .KREM.NN  <  NT  ,G(30  )  . 

1  CAY ( 3 ,3,2ol  I  .CENT (200.2 ) ,AG(2) .  CDA (2,3.200), 

2  NTR I ( 1C0.1C ) ,NUD.  NAD .  S ( 30 . 30 . 5 ) .FD ( 30  I  ,  SP(30.15) 
COMMON/ 2/  VF 

DIMENSION  JNDIR (  158 ) .ANDIR l  158 ) • LND I R ( 158 ) 

DATA  (RAD  -  57.29578) 

DATA  (JNDIR  = 

1  1.  ?.  1,  1.  2.  2.  2.  3,  3.  3.  9,  4,  4,  s,  6.  6.  6.  7,  8, 

2  8.  8.  9. 15. 10, 10. 11. 12, 12, 12, 13, 14,14.15. 15,21, 16, 20, 20, 20, 

3  21. 21. 21. 25, 23.24. 24. 25, 25. 28. 28.17, 17, 17. 18.18, 19. 19. 22, 22, 

4  22, 23, 23, 29, 29. 30. 30. 3 1. 3 1.32. 32. 3 3. 33. 3*. 34. 35. 35, 36. 36. 38. 

5  36 , 39, 39, 4 -J, 40, 41  ,41 ,42 ,42 .43.43.44.44.45.45.4  7.47.48.66.49. 

6  50.50,51 .51 .52.52.53.54.54,59,57,57.57,58.59,59.59,60.61 .61 . 

7  62, 56*53. 63.63, 63. 64, 65.65, 65, 66. 67. 67.67, 69. 69, 69, 69, 70, 71  , 

8  71. 71, 72. 73. 73, 73, 75. 75. 75. 76, 77. 77. 78. 79. 79. 81. 81,921 
DATA  (ANDIR  * 

1  2,  3.85.  4.  5.  5.  6.  7.  7,  8.  9,86,10.11,11,11.12.13.13.13. 

2  19.15.15.87.16.17,17,17.18.19.19.19.20,14,21,88.28.19.22.23. 

3  23.24,25,89.26.26,27,27.90,29.30.30,31,32.32.33.33, 34.34,35 , 

4  36.36,37,38.39.39 ,40.40,41 .41,42.42.43 ,43.44,44,45 ,45,46.47, 

5  48. 48. 49, 49. 50, 50. 51. 51. 52. 52. 53. 53, 54, 54, 55. 58. 6 1.61 .62.62. 

6  62,65,65,66.66,67 .67,67.56,97,97,59.60.60.96,95.63,63,63.64, 

7  64. 67, 95. 94. 69. 70. 70,70.7 1.72. 72. 72. 73. 74. 94. 93. 75. 76 .76 .76, 

8  77.78,78.78.79.80.93.92.91.81.81 .82 . 8? .82 .83 .92 .91 .91 ) 

DATA  IUNDIR  - 

1  84.84.84.  5.  2,  6.  7.  3.  8.  9.85,85,11.  5.  6.12.13.  7.  8,14. 

2  15.  9,86.86.17,11,12,18.19,13.14.20.21.21.87.87.17,22,23,21. 

3  24. 25. 88, 88. 24, 27, 25. 90. 89. 30,17. 31. 32. 18. 33.19. 34, 22. 35. 36. 

4  23.37.26.39,30,40.31.41,32.42.33.43,34,44,35,45.36.46.37.48, 

5  39. 49, 40. 50.41 ,51 . 42 .52 .43 ,6 3 .44 .54 .45 . 55 .46 ,6 1 .48,62.49.50. 

6  65,51 .66,52,67,53.54,56.55,96.59.60,58,61 .95.63.60,61 .64,62. 

.7  65.68.94,69.70,64.65,71,72.66.67,73.74,68.93.75.76.70.71,77, 

8  78.72.73.79.80,74,92,81 .76.77,82 .78.79,83.80.91 .82.83) 

DO  10  1*1.36 
NDI R ( I .4  )  *  1 
10  ND1R( 159-1 .4  )  -  1 
DO  20  I  *  1.86 
NDIR ( 36*1 ,4 )  *  2 
20  CONTINUE 

DO  50  I  *  1.7 
FD( 1 1  •  1 
50  FD( 1*7)  »  -1 

DO  100  1*1,  158 

ND!R( I .1 (  *  JND I R (  I  ) 

NDIR (1,2)  *  AND  I R ( I ) 

NDIR ( 1,3)  •  LND I R ( I  I 
100  CONTINUE 

S3  «  SORT  1 3. ) 

S302  *  S3/2. 

PI  *  3.1415927 
R  *  SORT ( 2»*S3*VF/P  I  I 
*(84)  •  S302 
Y ( 84  )  ■  .5 

DO  300  1*1.3 


7 
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XII)  =  S302-R/4.*C0SIPI»< 1-1 ) /6. > 

300  Y ( | ) =  .5  -R/4.*SINIPI*I 1-1 ) /6. ) 

C 

00  310  1  =  1.6 

XII-.3)  =  S302  -  R/  2  •  *  COS( PI*( 1-1  I /12. ) 

Y (  1*31  =  .5  -  R/2.»  SIN(PI*( 1-1 )/12. ) 

C 

XII+9)  =  S302  -  3.*R/4.*COSIPI»l  1-1) /12.  ) 

YII-.9)  =  .5  -  3.*R/4.*SINIPl*< l-lt/12.) 

C 

X(I*15)  =  S302  -  R  *  COSIPI*! 1-1 1/12. I 
310  Y I  1  +  15)  =  .5  -  R  *  SINIPI*II-1  1/12.  I 

DO  320  1  =1.7 
X ( 83+ 1  I  =  S302 
320  CONTINUE 

00  330  I  =1,5 
Y ( 83*  T ) *  .5-  <1-11/4. «R 

330  CONTINUE 

Y<90)  =  -.5 

YI89)  =  <VI88)4-YI  90  )  )  /2  • 

X ( 38 )  «  -.5  *T*NIPI/6.) 

Y  <  38  I  »  .5 

OX  •  1 1 .— R ) / <  2.*C0S  I P I /6. ) ) 

X ( 29 )  *  XI 38)  ♦  OX 

Y  <  29 )  »  .5 

XI 28 )  «  <  X  <  29 )*X I 16)1/2. 

Y 1 28 )  =  .5 

DO  3*0  I  =1.4 

XI 1*38)  •  <4-1 »  •  X ( 38 ) /4. 

3*0  V ( 1*38 )  ■  < 4—1 )  «  Y  <  38 ) /*. 

DELX  «  X  <  39 )  -  X  <  38 ) 

DELY  *  V 1 39 )  -  Y  <  38  ) 

DO  350  I  «  1.8 
XI 1*29)  =  XI 1+28)  ♦  DELX 
350  VI !+29 I  «  YII+28)  ♦  DELY 

X I  26 )  *  XC37)4(XI90)-XI37))/3. 

Yl  26 )  "  -.5 

XI 27)  -  2.*X I  26 )  -  XI 37) 

YI27 )  *  -.5 

XI22 )  =  X 1 19  )  ♦  1X126)— X 119) )  /3. 

Yl 22  >  «  Yl 19  )  ♦  I Yl 26 )-Y 119))  /3. 

X 1 23 )  =  2.*X I  22 ) -X I  19 ) 

Yl 23 )  «  2.*Y I  22 ) -Y 119) 

X  1 24 1  «  XI23)*IXI89)-X(23))/3. 

Y 1 24 )  ■  Y(23)  +  IVI89)— YI23) 1/3. 

XI25 )  »  2.*X I  2* ) —X I  23  I 
Y 1 25  )  *  2.*V I  2* ) -Y 123) 

C 

DO  360  I*  43.83 
XI!)  =  — X  1 84  —  1 ) 

360  VII)  «  -V 1 84-1  I 

C 

DO  370  I«  1.7 
XI90*i )  «  -X (83*1 ) 

370  YI9C+I )  »  -YI83+I 1 
C 

RETURN 

END 
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SUBROUTINE  FINAL 


C 

C  FINAL  CASF  5 

C 

C 

c  this  subroutine  calculates  stresses  for  program  lontud 

c 

c 

COMMON  / 1 /  XllUO).  YllOul.  NDIRI 200.4 > .M.N.KREM.NN.NT.GI 30* . 

1  CAVI  3  t  3  « 2  J 1 1  .CENT  1200.2  I  *Af>(2)  •  CDA  1 2 . 3 .200 )  . 

2  NTRI ( 100.10I.NU0.  NKD.  SI  30 .30.3 I .FO I  30  I  .  SPI30.14* 
COMMON/2/  VF 

DIMENSION  SIGI4.1S8) 

EQUIVALENCE  (SICmSTRI 
DIMENSION  SIGOUT (632  ) 

DIMENSION  0ELI200I.  DX (3) .  STRI4.200) 

OATA  ( P I >3 . 14139271 
R-S0RTI3.* 

R»S0RT(2.«R*VF/P| I 
DEG  ■  57.29478 
DO  10  J  ■  l.KREM 
DEL  I J)  ■  SPIJ.l) 

10  CONTINUE 

KLOC  ■  KNEM  -  N 
DO  20  I  •  2.M 
KLOC  •  KLOC  ♦N 
00  20  J  -1.N 
DEL ( KLOC. J I  ■  SPIJ.l  I 
20  CONTINUE 

00  24  I  >  1.  NKD 
24  0CLINUO.il  •  FDIII 
PRINT  1010 
NOEL  •  NN  /  7 
JCNT  •  0 

00  14  J  •  l.NDEL 
JCNT  •  JCNT  ♦  1 
IPIXNT.LC.10I  GO  TO  10 
PRINT  1010 
JCNT  •  0 

10  JPIR  •  T«IJ-1I«1 
JUST  •  JPIR  ♦  ft 

PRINT  1011.  IK.K-Jf IR.JLASTI 
PRINT  1012*  IOCLIKI  .K-JPIR.JLAST* 

11  CONTINUE 

LOCI  >  TPNOCL.l 
IPIL0C1.GT.NNI  GO  TO  ftO 
PRINT  1011*  IK.K-LOCl.NNI 
PRINT  1012*  I0ELIKI.K-L0C1.NNI 
*0  CONTINUE 
C 

C  PINO  STRESSES 
C 

00  100  1*1 .NT 

11  •  NOIRII.ll 

12  •  N0IR1I.2I 

13  •  NOIRII.ll 
Ollll  •  OEL I  III 
0*12*  •  OCLl 121 
0*131  •  OCLl 111 

CALL  Mt*M.TlCDftl 1 .1 •  1 1  .0*  .STRI I»||. 2*3.11 
STRI1.II  •  SORTI  STR 1 1 . |  |**2  •  STRI2. I I 
STRI4.II  •  0(0  •  ATANISTRI2.M  /  STWIl.lt  I 
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TAUX2  ■  R/4.«ISIG<l*3t. SIGH. 12>*StGI).?4)4StGtl. 361) 

1  ♦  I l.-*l /Z.'ISIGI 1.44).  jIGI1.44t) 

TAUX2  >  1./TAUX2 
00  110  J-1.1S8 
STRI3.JI  >  STR(3.J)*TAUXZ 
00  110  I «1 »2 
k •  u-n«?4i 

SIGOUTIIC)  ■  STRI I . J)*TAUXZ 
110  STRI I.J)  >  SI GOUT  IK  I 
C 

LINE  ■  4 
PRINT  1009 
00  ISO  I  ■ 1 »NT 
IFILINE.LT. 54)  GO  TO  140 
LINE  »  4 
PRINT  100S 
140  LINE  ■  LINE  ♦  2 

ISO  PRINT  1006.1 • I CENT II. J)«J* 1.21.1 STRI J» I ) . J>1 .4  ) 

PRINT  8787.TAUXZ 

8787  FORMAT  I //2SH  NORMALIZATION  FACTOR  ••2X.E1S.7I 
WRITE  1201  lSIGOUTIII.l-l.lSil 

1005  FORMAT  1 9H1  TRIANGLE  .4X10MCENTROID  X.4X.10HCENTR0ID  T.AX.8HSIGMA 

1  6X.8HSIGMA  YZ .6X.8MGRA0IENT *9X .SHALPHA/ ) 

1006  FORMAT I6X.I3. 2I4X.F 10.4 ) .41 2X.E12.SI/) 

1010  Format t ihi .sox.ishoisplacements.// ) 

1011  F0RMATI1H  .7I8X.4N0ELI.13.1H)  )  ) 

1012  F0RMATI1H  .7I2X.E14.7)/) 

RETURN 

END 


CASE  S 

xz. 
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FUNDAMENTAL  CASE  4 


PROGRAM  LON  TUO 
C 

C  LONTUD  CASE  4 

C 

C 

c  this  program  solves  the  longtudinal  shear  problem 

COMMON  /\/  XI10O).  rilOOIt  NDIR ( 200 .4  >  *M,N .KREM.NN.NT «G( 30) « 

1  CAV<3.3.201).CENT<200.2)»AG«2>»  CDA(?. 3.200)  . 

2  NTRI  (  lOO.lO.NUD.  NKD.  S 130 , 3ft .  9  )  .EO I  30  I  •  SPOO.19) 
COMMON/2/  VE 

0 1  MENS  I ON  OUM (10)  «  DMXT<6).  DMXI6) 

OAT*.  (OMX  «  0..0..1.  .0..0..1.)  «  IDMXT  >  0.  »  1  •  .0.  *0*  «0.  *  1  •  > 

C  NDIRI1.4)  -  MATERIAL*  1  OR  2 

C  NDIRD.JI  -  JTM  DIRECTION/NODE  IN  I TH  TRIANGLE  .IJ*1.3) 

C  NT  -  NUMBER  TRIANGLES 

C  NN  -  NUMBER  NOOES/OIRECT IONS 

C 
C 

c 

C  NUO  -  NUMBER  UNKNOWN  DISPLACEMENTS 

C  NKO  -  NUMBER  KNOWN  DISPLACEMENTS 

REWIND  20 

CALL  TAPESKIP«2O,6.0> 

CALL  TAPE SKIP! 20.9.0) 

10  READ  1000.DUM 
PRINT  1001.  DUW 
READ  1002.AGU).AG(2I  .VF 
IFIVF.EQ.O.)  GO  TO  950 
PRINT  1003.AGI1) .AGI2I *VF 
M  •  9 
N-19 

KREM  ■  13 
NUO  ■  T3 
NT  >  198 
NN  ■  97 

NKO  «  2* 

CALL  CONFIG 
PRINT  1009 
00  100  I ■ 1 .2* 

J  •  ?!♦! 

PRINT  1010.J.FDI I  I 
100  CONTINUE 
LINE  •  * 

PRINT  100*. ( J.  J«  1 .31 » I J. J* 1 .3  > 

00  130  l»i  « 1 97.2 
IF  LINE. LT. 9*1  GO  TO  120 
LINE  ■  * 

PRINT  100*»< J.J-1.3) .1 J.J-1.31 
120  LINE  ■  LINE  ♦  2 
I  l»I*l 

130  PRINT  1009.1.  «NOIRII.J).J»l.*l»I!.«NDIRIlt»J).J»l**l 
C 

C  PRINT  OUT  NOOE  INFORMATION 


l  «  1 

190 

CONTINUE 

LINE 

•  * 

PRINT 

1007 

200 

CONTINUE 

IF*  I. 

NE.R7) 

GO  TO  210 

print 

1008. 

1.  XIII. 

GO  TO 

219 

CASE  * 


CASE  * 
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^  n  r\ 


210  1P2  •  1*2 

PAINT  101S.I ( J.XIJI.VI J)I.J«|.!P2t 
2H  l«|6l 

IEII.GT.NN)  GO  TO  220 
LINE  ■  LINE  ♦  2 
IEILlNE.GT.46)  GO  TO  1*0 
GO  TO  200 
220  CONTINUE 


DERIVE  ALL  MATRICES  SMALL  K 


00  TOO  J-l.NT 
CALL  KSMALLIJ) 

TOO  CONTINUE 

00  600  l«l.NN 
NTRI 1 1 .10)*  0 
600  CONTINUE 

DO  500  1  •  l.NT 
00  500  J  •  1.) 

K  >  NOIRII.JI 

NTRt(K.lO)  •  NTRMK.10)  ♦  1 
L  •  NTRMK.10) 

NTRIIK.LI  ■  I 
500  CONTINUE 
C  . 

CALL  PUCMOL 
GO  TO  10 
*40  CONTINUE 
REMIND  *0 
STOP 

1000  EORMAT ( 10A0) 

1001  EORMAT  ( 1H1 .10A0) 

1002  EORMAT (9E 15. 6) 

1001  EORMAT  I  90R  .IMG  1.20X.9HG  2.20K.9MV  E/lOX.IliX.EIS.Sl) 

1006  E0RMATI1M1.  iMTRIANGLE.il 21. 4MN0DC  .111  .6I.IMMATERIAL.I0R. 

1  OMTR! ANGLE.) < 21. SHNOOC  .111  .61  .SHMATERIAL/ I 

1005  EORMAT (1X.2I5X.I9.5I.11.5X.I9.5X.I)  .9X.I9.10XI/) 

1007  EORMAT!  lH1.9(6MNOOE.12X.lMX.12X.lMV.iXI/) 

1001  EORMAT  (2X.I9.2OX.E10.5l/) 

100*  EORMAT  (///// .6X.15MN0N-ZER0  KNOMNS./) 

1010  EORMAT  ISM  ROW!  *I2.2M)>.E1 1  .6  ) 

1011  EORMAT I IX. 91 lX.I1.1X.E10.4.9X.EI0.4tiX)/l 
ENO 


CAM  6 


CAM  6 
CAM  6 


•«0  CAROS 
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nanonon 


SUBROUTINE  CONFIG 


CONFIG  CASE  6 


THIS  SUBROUTINE  GENERATES  THE  COORDINATE  ANO  FORCE  CONFIGURATION 
FOR  THE  PROGRAM  LONTUO 


COMMON  /l/  X I 1 00  I  *  VI100).  NDIR I  200 .4 ) »M,N .KREM.NN.NT »GI 30) » 

1  CAY  I  3 .3,201 ) .CENT ( 200.2 ) »AGI 2 > »  COA ( 2 .3 • 200 ) . 

2  NTRI 1 100.10) .NUO.  NKD .  S I  30.30.5 ) .FO ( 30 )  .  SPI30.15I 

COMMON/ 2/  VF 

DIMENSION  JNDIRI 158) .KND IR ( 158 ) .LNO IR 1 158 > 

DATA  IRAD  *  57.29578) 

DATA  (JNDIR  * 

1  1.  1.  2.  *.  1.  1.  1.  1»  2.  2*  2.  3.10.  A.  A.  5.  5.  5.  8.  7. 

2  7.  7.  8.  9. 16.10.10. 11. 11. 11. 12. 13. 13. 13. 1A. 15. 16. 18. 19. 19. 

3  2*. 20.20,21. 23. 24,24. 25.25. 27.16.16. 16. 16.17.17.18. 22*22. 22. 
A  22, 23, 23. 34.27 .2 7, 27.28, 28 .29 .29 .30. 30 .31,31. 32,32.33. 33. 41. 

5  34.34,34.35.35.36.36.37.37.38.38.39.39.40.40.51.41.41.61.42. 

6  43,43.44.44.45.45.46.47.47.48.49.49.50.50.48.49.49.50.31.51. 

7  52,58.53.54.54,54.55.56.56.56.57.58.58.58.59.60.60.60.61.62. 

8  62.62. 63.64. 64. 64. 65. 66, 66, 67. 68. 68, 69.70.70,71 .72.73  I 

DATA  ( KNDIR  *  ... 

1  74.  2.  3.75.75.  4,  5.  6,  6.  7.  8.  8 .76 . 76 . 10. 10, 1 1 .12 » 12 , 12 • 

2  13, 14. 14. 14.77.77, 16. 16. 17. 18 .18. 18. 19. 20. 20. 20. 78.22 .22. 23. 

3  23. 24. 25. 23. 88. 88. 87, 87. 86. 79. 79. 27. 28. 29. 29. 30.30.18,31, 32, 

4  33,33,89,80.80,34.35,35.36.36.37.37.38.38.39.39.40.40.90.81. 

5  "81 .41 .42. 42 .4 3.43 .44.44.45.45,46,46,47 .47 .91 ,82.82,51.52,52. 

6  52,56.56.57.57.58.58.58.92.49.84.50.83.51.53.53.54.54.54,55. 

7  55,93.59.59,60,61.61 .61 ,62 ,63 .63 ,63.64 .94.65 .65. 66 .67 .67.67. 

8  68.69.69.69.70.95.71.71.77.72.72.73.73.73,96.97.97.97  I 


1 

2 

3 

4 

5 

6 

7 

8 


DATA  ( LNDIR  *  , 

75.74.74.76.  4.  5.  6.  2.  7.  8.  3.  9.77.10.  5.11.12.  6.  7,13. 
14.  8,  9.15.78.16.11.17.18.12.13.19.20.14.15.21.79.19.23.20. 
24. 25. 21 .26 .24. 87. 25. 86.26. 80.27. 28 .29. 17. 30. 18. 31. 31, 32. 33. 

23.89.88.81.34,35.28.36.29.37.30.38.31 .39.32.40.33.90.89.82. 
41 ,42, 35 .43, 36 .44. 37. 45 .38 .46, 39, 47. 40. 91 .90, 83, 51 .52,42 .43, 
56. 44. 57. 45. 58. 46. 47. 92.91. 85. 85. 84. 84. 83. 49. 54. 50. 51 .55. 52. 
56.92.54,60.61.55.56.62.63.57.58.64.94.93.60.66.67.61.62.68. 
69. 63 .64. 70. 95. 94. 66. 72. 67. 68. 73.69. 70. 96. 95, 72 .73 .96  I 


DO  10  1*1 .36 
NDIRII.4)  >  1 
10  NDIRI 159-1.4)  «  1 
DO  20  I  >  1,86 
NDIR064I.4)  »  2 
20  CONTINUE' 

DO  50  I  -  1.  12 
FOCI)  •  1. 

50  FOI 1+121  ■  -1. 

DO  100  I  «  1.  158 
NDIRI 1,1 )  *  JNDIRI I > 

NDIRI 1.2)  «  KND I R I  I ) 

NDIRI 1.3)  »  LNDIR I  I ) 

100  CONTINUE 

S3  *  SORT  I  3.) 

S302  *  S3/2. 

PI  «  3.1415927 
R  •  SORT I2.*S3*VF/PI ) 

DO  300  I«1 ,3 

XII)  «  S302-R/4. *COSIPI*I /6. > 
300  VII)  *  .5  -  R/4.*S IN  I  PI  *  I /6. ) 
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00  310  1-1.6 

XII43)  ■  S302  -  R/2.*COSIPI*I/12.) 

VII43I  «  .5  -  R/2.4SINIPI41/12.) 

XI149)  «  S302  -  3.»R/*.»C0S(P1»1/12.» 

V 1 1 49 )  ■  .3  -  3.»R/4.*SINIP!*I/12.) 

XI 1*13 )■  5302  -  R4CCSIP!»1/12.) 

310  YI1+13J-  .5  -  R*  S INI P! *! /12«  ) 

DO  320  1-1.3 

XII473)  ■  S302  -  R4II-1I/4. 

320  Yl I ♦73 )  •  .5 
DO  330  1-1.4 
330  VI934|>  ■  -.3 
XI86I  -  S302 
XI 26 )  -  S302 

Y 1 26 )  -CYC21 )♦  VI86I)  /2. 

YI81 )  -  .3 
Yl 80  I  «  .5 
VI79)  •  .3 

XI81I  -  -.3  *  TANIPI/6.) 

DX  -  ll.-R)  /  I2.4C0SIPI/6.) > 

X 180  I  «  X 1 81  I  *  OX 
XI79I  •  1X180)  ♦  XI78D/2. 

00  340  1-1.4 

XII+33)  •  14-M*  XI81I/4. 

340  YII433)  «  14-1)4  YI81I/4. 

OELX  «  X 1 34 1 -XI 81 ) 

OCLY  •  YI34I-YI 81 1 
00  350  1-1.7 
XI 1426)  >  XI80)40ELX*I 
350  VII426)  -  YI80)40€LV*1 
XI89)  -  XI33)4DELX 
XI88)  •  XI 89  1 4  I X 1 86 I-XI89 ) ) /3  • 

XI87)  •  2.*X 1 88 > -XI 89 ) 

XI 22  )  •  XI 18 )  ♦  I XI 88) -XI 18)  )  /3. 
YI22)  •  VI 18 )  ♦  IVI88I-YI16)  )  /3. 
XI23I  -  2.4X122)  -  XI 18 ) 

YI23I  ■  2.4YI22)  -  Yl 18) 

XI24)  >  XI 23)41X1 26 )-XI23))/3. 

YI24 )  •  VI23l4(VI26)-YI23))/3. 

XI25)  -  2.4X124)  -XI23) 

VI25 )  •  2.*YI24)  -YI23) 

00  360  I-  38.73 
XI  I)  •  -XI 74-1 ) 

360  VII)  ■  -VI 74-! I 
00  370  !>  1.  4 
XI894!)  •  -X 1 82- 1 ) 

YI8941)  •  4,9 
XI934I)  ■  -XI78-! ) 

YI934!)  -  -.5 
XI814!)  -  -  XI90-! ) 

370  VI814I)  «  4.3 

RETURN 

END 
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SUBROUTINE  FINAL 
C 

C  FINAL  CASE  6 

C 

c 

C  this  subroutine  calculates  stresses  for  program  lontud 

c 

c 

COMMON  / 1/  XtlOOI.  YUOO).  NO  IR  (  200.4)  ,M ,N  »KREM  »NN .NT  «G I  30 1 » 

1  CAY<3.3,201),CENTI200.2).AG(2I,  CDA ( 2 , 3 .200 ) . 

2  NTRI ( 100. 10) .NUO.  NKD »  S I  30 . 30 . 5  I .FD ( 30 )  .  SPI30.15) 

COMMON/2/  VF 

DIMENSION  SIGIA.1S8) 

EQUIVALENCE  (SIG.STR) 

DIMENSION  S I  GOUT (632  1 

DIMENSION  DEL  I  200  I  .  DX I  3  )  «  STRIA, 200) 

OATA  (Pl*3. 1415927) 

R'SQRT 13.) 

R«SORT( 2.*R«VF/PI ) 

DEG  *  57.29578 
DO  10  J  *  l.KREM 
DELIJ)  «  SP(J.l) 

10  CONTINUE 

KLOC  -  KREM  -  N 
DO  20  I  »  2.M 
KLOC  ■  KLOC  *N 
DO  20  J  «1.N 
OELIKLOCaJ)  «  SP(J.I) 

20  CONTINUE 

DO  25  I  >  1.  NKD 
25  DEL  I NUD+l )  *  FOIII 
PRINT  1010 
NOEL  ■  NN  /  7 
JCNT  ■  0 
DO  35  J  ■  1 .NOEL 
JCNT  «  JCNT  ♦  1 
IFI JCNT. LE. 181  GO  TO  30 
PRINT  1010 
JCNT  •  0 

30  JFI R  ■  7*IJ-l)4l 
JLAST  ■  JF|R  ♦  6 
PRINT  1011.  (K. K-JFIR. JLAST ) 

PRINT  1012.  (DEL  IK) ,K*JFIR. JLAST) 

35  CONTINUE 

LOCI  «  7 *NDE L ♦ 1 
IFIL0C1.GT.NN)  GO  TO  40 
PRINT  1011.  (K.K*L0C1 .NN) 

PRINT  1012.  (DELCKI .K-L0C1.NN) 

40  CONTINUE 
C 

C  FIND  STRESSES 
C 

DO  100  I « 1 .NT 

11  >  NDIRI I . 1 )  > 

12  «  NDIRI I .21 

13  «  NDIRI 1.3) 

DX I  1 )  *  DELI  II  I 
DXI  2 )  -  DELI  12) 

DX  I  3 )  *  DELI  13) 

CALL  MXMULTICDAI 1,1.1 I.DX.STRll.I), 2.3,11 
100  STRI3.il  »  SORT!  STR(1.II*42  ♦  STRI2.I)**2) 

TAUYZ  *  r/4.»ISIG(2.1 )4SIG(2.4I4SIG(2.13I«SIG(2.25) ) 
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1  ♦  IX 1 78  )“X I  79) l*ISIG(?«3T).S.G<2«90) ) 

2  ♦  IXI80J-XI81 II*I$IG(2.A4)*SIG<2.80>) 

1  ♦  IXI82)~Xt89))/3.*tSIGt?*96)+SIGI2.111)+SIGI2*113lt 

TAUYZ«SQRTI3. I/TAUYZ 
00  110  J.1.198 

IF  I  l.E10*ABS<STR(l  .J)  > . L T . ABS ( STR < 2 . J >>)  GO  TO  80 
$TR(A.J).0EG*ATAN<STRI2« J1/STRI1 .J)  ) 

GO  TO  90 

80  STRIA* Jl  •  90. 

90  CONTINUE 

STR 1 3 #  J )  ■  STRI3.J)*TAIJYZ 
DO  110  l»l»2 
K»  IJ-1)«2M 

SIGOUTIK)  ■  STR (  I » J I *TAUYZ 
110  STRII.JI  •  SIGOUTIK) 

LINE  •  A 
PRINT  1003 
00  190  I  • 1 *NT 
IFILINE.LT.9A)  GO  TO  1A0 
LINE  •  A 
PRINT  1009 
1A0  LINE  ■  LINE  ♦  2 

190  PRINT  1006.I.ICENTI  I  •  J)  ..)>1  *2  1 1 ISTRI  J.  I  )  .J«1.A) 

PRINT  8787.TAUVZ 

8787  FORMAT I //23M  NORMALIZATION  FACTOR  >.2X.E)9.7) 

WRITE  1201  ISIG0UTlll.l-l.198> 

1009  F OR  MAT  1 9M1  TRIANGLE.  AX  lOMCENTROIO  X.AX  .10HCENTR0I0  Y.6X.BHSIGMA 

1  6X.8HSIGMA  YZ .6X .8HGRA0 1  ENT  »9X » 5H ALPHA/ ) 

1008  FORMAT I8X.I3.2IAX.F10.AI.AI2X.E12.9)/) 

1010  FORMAT  1 1M1  .9UX.13HDI SPLACEMENTS.//  ) 

1011  FORMAT!  1H  .7 18X. AMOEL I .  I  3.  INI  I  ) 

101?  F0RMATI1H  .7I2X.E1A.7)/) 

RETURN 

END 


I 

J 

i 


I 

I 
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AUXILIARIES 

SUBROUTINE  PUCHOl 
C 

c  this  routine  solves  su>g  •  where  s  is  a  tri -diagonal  matrix  in 

C  SUBMATRICES.  WITH  ELEMENTS  OF  ORDER  N. 

C  S  IS  KNOWN 

C  SP  IS  A  VECTOR  OF  DIMENSION  (NXM)  WHERE  M  IS  THE  NUMBER  OF  DIVISIONS  OF  S 
C  C  IS  WRITTEN  ONTO  TAPE  AFTER  DERIVATION  ON  THE  FORWARD  PASS* 

C  AND  READ  BACK  IN  ON  THE  BACKSWEEP 
C  Sll.l.ll  INITIALLY  CONTAINS  SII.I-11 

C  SI  1 *1*21  INITIALLY  CONTAINS  S ( I  •  I  ) 

C  SI1.1.4)  INITIALLY  CONTAINS  Slidell 

C  SP  CORRESPONDS  TO  P  IN  THE  WRITEUP  BY  GATEWOOD  ON  THE  FORWARD  PASS. 

C  ON  THE  BACKSWEEP.  IT  CORRESPONDS  TO  U. 

COMMON  /l/  XUOOI.  YflOOt.  NDIRI  200*4 )  .M.N.KREM.NN  .NT  .GI  30)  • 

1  CAY< 3 ,3.201 ) .CENT  1200. 21. AG (2).  CDAI2, 3*200) • 

2  NTRI 1 100. 10 1 *NUO.  NKD.  SI 30.30.5 ) .FD ( 30 )  *  SPI30.15I 

DIMENSION  Cf 900) 

EOU I VALENCE  I  SI  36011,0 
DATA  IXLIMIT  -l.E-O) 

REWIND  96 
N2  •  2*N 
KREM*  *  2»KREM 
DO  10  I CYCLE  »1.M 
IFIICYCLE-2)  1.2.3 

1  K1  •  KREM 
K2  ■  KREM 
K3  ■  KREM2 
GO  TO  4 

2  K1  ■  N 
K2  •  KREM 
K3  ■  N2 
GO  TO  4 

9  K 1  »N 
K2  »N 
K3  «N2 

4  CONTINUE 
K4  •  N 

IF* ICYCLF.EO.M)  K4  ■  NKD 

CALL  KLARGEIICYCLE.SfSI  I.I.2).S(1.1.4),SI1.1.3).K1»K2.K4,NKD) 
IFIICYCLE.EO.il  GO  TO  10 

5  IF  (UNIT. 96)  6.7  .600.  600 

6  GO  TO  5 

7  CONTINUE 

CALL  MXMULTI SI  1*1,1!  •  Sll.1.5)  •  Sll.1,3)  .K1.K2.K1) 

5(1. 1.5)  CONTAINS  C  FROM  LAST  CYCLE 

CALL  MXSUBISI 1.1.2)  .  SI1.1.3)  *  SI  1 . 1.2  I  .K1.K1) 

10  CONTINUE 

BII.II  NOW  IN  SI  1*1 .2) 

CALL  INVERT  I S(  1 . 1 .2  I  •  K1  *  K3.  XLIMIT  .  FLAG) 

IF  IPLAG.NE.O.)  GO  TO  500 

INVERSE  OF  BII.I)  NOW  IN  Sll.1.2) 

IF  I ICYCLE.EO.l )  GO  TO  20 

CALL  MXMUL T(SIl.l.l)  .SPl 1 . ICYCLE-1 )  ,  Sll.1,3)  •  N*  K2  .  1) 

CALL  MXSue  (G  .  Sll.1,3).  G.  N.  1) 

20  CONTINUE 
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i 


WWW  WWW  WWW 


CAvk  PXNUi.T  '11.  ' :  .  *SP(1*  (CYCLE  I  •  K1  •  K1  •  II 

IF  IICYCLE.GE.MI  GO  TO  19 

CALL  NXNULT  ISI1.1.2I  .  5(1*1*61  •  511*1.51*  K1  •  K1  ,  Nl 
NSC  >  K1*N 

BUFFEN  OUT  (96*11  ICI1I.  CINSO  II 

10  continue 

19  CONTINUE 

NOW  IN  BACK  SWEEP*  SOLVING  FON  U 

DO  SO  I  ■  2*M 
JCYCLE  ■  «-!♦! 

IFIXTCLE.GT.il  GO  TO  96 
K1  ■  KNEM 
GO  TO  17 
U  U  •  N 
97  CONTINUE 
NSO  •  K1*N 

IF  (XVCLE.EO.M-1 1  GO  TO  61 
BACKSPACE  96 

61  CONTINUE 
BACKSPACE  96 

6UFFEP  IN  (96*11  (Cdl.CINSQ  II 

62  IF(UNIT*96 I  69*  66*700*700 
61  GO  TO  62 

66  CONTINUE 

UIMI-SPINI  *  CONS I  DEN  FINST  IM-ltTH  CYCLF 

CALL  MXMULTIS(1*1*9I  *SP( l.XYCLEM  I *S(  1  *1  *1 1  *K1  *N*  II 
CALL  NXSuBlSPI  1*XYCLEI  *  5(1.1*11  *SP(  1  •  JCYCLE  I  •  K1  •  II 
60  CONTINUE 

UINS.ll  NOW  STONED  IN  SPCN.II  .  !>1*M 

CALL  final 
NETUNN 
900  CONTINUE 

PNINT  1000  .  ICYCLE 
STOP 

600  CONTINUE 

PNINT  1001.ICYCLE 
STOP 

700  CONTINUE 

PNINT  1002*  JCYCLE 

1000  FONMAT  ( 91H1COULD  NOT  INVENT  NATNIX  IN  NOW*12l 

1001  FONMAT ( S7M1  ENNON  NEADING  C  INTO  CONE  ON  12*  TMTN  NOW. I 

1002  FONMAT  1 17N1  ENNON  WNITING  C  ONTO  TAPE  ON  12*  7MTM  NOW.  I 

STOP 

END 
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subroutine  ksmalliii 


this  subroutine  derives  the  MATRIX  small  k  and  the  matrix 
C*D*  A««l-ll  F OR  the  TRIANGLE  I. 

COMMON  m  XllOO).  YI100).  NDIR I  200 .4  I .M.N .XREM.NN .NT .G I  30 1 • 

1  CAY(3.3.2U1 I .CENTI200.2 I .AGI2I t  CDA ( 2 • 3 .200 ) • 

2  NTRI  I  100*10  1  <NUD>  NK.D  «  S I  30 .30 .5  I »FD I  30  I  .  SPI3C.15I 
DIMENSION  D(6).  AINVI3.3I.  C(4)  »DMXT  I  6 ) 

DATA  (DMXT  =  0. . 1 . • 0 . . 0. . 0. . 1 . I 
DATA  ID«0..0..1..0..0..1.I  .  (C  =  0..0..0..0.) 

A INV (1.1)  *1. 

A INV 11.2)  =0. 

AINVI1.3)  *0. 

C 

INI  «  NDIRI  I  .1  ) 

IN2  »  NDIRII.2) 

IN3  ■  NDIRI I .3) 

X 12  ■  XI IN2I  -  XI  INI > 

X  1 3  ■  XI IN3)  -  XI  INI ) 

ETA2*  YIIN2)  -  YIIN1) 

ETA3«  Yl IN3I  -  r 1  INI  I 

c 

CENT  I  I • 1  )  =  I X I  INI)  *XIIN21  «■  XIIN3)  )  /  3. 

CENT  I  I  .2  )  «  I  Y  I  INI)  ♦YIIN2I  4-v  I  IN3  )  )  /  3. 

C 

DELTA  »  X I2*ETA3  -  XI3*ETA2 

IF( ABSI DELTA I.GT.l.E-10)  GO  TO  77777 

print  aaaaa.i 

eaaaa  format iihi.shi  «.i3i 
77777  CONTINUE 
C 

A INV I  2 .2 )  *  E  T  A3 /DEL  T A 

AINVI2.3)  *  -ETA2/PELTA 

A INV I  2.1)  *  - 1 A I NV 12.2)  ♦  AINVI2.3)  ) 

A INV I  3.2  >  «  -X  1 3 /DELTA 
AINVI 3*3  >  «  X 1 2 /DELTA 
A INV I  3*1 >  -  -IAINVI3.2I  ♦  AINVI3.3I  ) 

C 

■MAT  >  NDIRI I. A) 

Cl  II  >AGIIMAT) 

c i a i  «  cm 

CALL  MXMULTIO.AINV.CAYI 1.1. II. 2. 3. 3) 

CALL  MXMUL TIC.CAYI1.1.I) .CDA I  1 .1. I  I .2.2.3) 

DO  100  J>2.3 
JJ-J-1 

DO  100  K>1.JJ 
TEMP  »  AINVIJ.X) 

AINVIJ.KI  «  AINVIA.J) 

100  AINVIK.J)  *  TEMP 

OMEGA  «  DELTA  /  2. 

CALL  MXMUL T I DMXT. CDA I 1.1.II.CAYI1.1.I+1I.3.2.3) 

CALL  MXMUL T I  A I NV .CAY  1 1  *  1 . I +  1 ) .CAY  1 1 . 1 . I  I .3 .3 .3  I 
DO  110  J  *  1.3 
DO  110  K  >  1.3 

CAVtJ.K.I)  «  CAYIJ.X.D*  OMEGA 
110  CONTINUE 
RETURN 
END 


r 
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SUBROUTINE  KLARGE ( I »S IM1 ,S I . S I P 1 ,CA Y 1 2 .  I  1 . 1 2 . I  3 « I*  ) 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  PUCHOL  TO  GENERATE  THE  I-TH 
C  ROW  OF  SUBMATRICES  SI  1. 1-1).  SII.I).  SI  I .1  +  1 1  AND  THE  PART  OF  THE 
C  INDEPENDENT  VECTOR  REQUIRED  BY  THE  CHOLESKI  PROCESS  ON  THE  I-TH  PASS 
C 

COMMON  /l/  XI100).  Y I  100 ) .  ND I R I 200 .4 ) .M ,N .KREM ,NN .NT .G I  TO ) . 

1  CAYI3.3.201 ) .CENTI200.2) ,AG<2 ) .  CDA ( 2 . 3 . 200 ) . 

2  NTRI  1100,10)  ,NUO.  NKD  .  S  I  30 ,30 , 5  )  »FD  I  30  )  ,  SP  I  3  D  .  1  *i ) 

DIMENSION  SIM1II1.I2).  SII11.I1),  S1P1II1.I3)  .  CAY  1 2  I  1 1 • 1 4 ) 

KS2  *  4 

IFII.GT.1)  GO  TO  10 
KS1  *  2 
IS  =  0 
JS  «  -  12 
GO  TO  40 

in  IFII.GT.2)  GO  TO  20 
JS  ■  0 
GO  TO  30 

20  JS  *  KREM  ♦  I  I —3 » *N 
30  IS  *  KREM  +  I  I -2 ) *N 
C 

C  IS  -  ROW  BIAS 
C  JS  -  COLUMN  BIAS 

C 

KS1  •  1 
40  JS1  >  JS 

JS2  «  JS1  ♦  12 

JS3  »  JS2  ♦  II 

JS4  -  JS3  ♦  13 

IR0W1  »  1  ♦  IS 

IR0W2  *  II  ♦  IROWl  -  1 
DO  300  KSS  =KS1.KS2 
C 

GO  TO  1 100.110.120.1301 .KSS 
100  IC0L1  *  JS1  «-l 
IC0L2  «  JS2 
GO  TO  150 
110  IC0L1  «  JS2+1 
IC0L2  *  JS3 
GO  TO  150 

120  IFII.EO.M)  GO  TO  300 
IC0L1  «  JS3*1 
IC0L2  =  JS4 
GO  TO  150 

130  IC0L1  >  NUD  *  1 
IC0L2  >  NN 
150  CONTINUE 

DO  300  II  ■ IROWl « IR0W2 
DO  300  JJ  » I COL  1 , 1 COL 2 
TEMP  »  0. 

NTRI9  *  NTRI 1 1 1 . 10) 

NTRJ9  «  NTRI I JJ. 10) 

C 

C  NTRI 9  -  NUMBER  TRIANGLES  TOUCHING  NODE  II 
C  NTRJ9  -  NUMBER  TRIANGLES  TOUCHING  NODE  JJ 
C 

DO  200  K  •  1 .NTRI 9 
NTRI I  m  NTRI I  1 1. K) 

DO  200  KK  *  1.NTRJ9 

IF  I NTRI I .NE.NTR I IJJ.KK) )GO  TO  200 

DO  ISO  L  «  1.3 
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c 

c 

c 


leo 

200 

210 

220 

230 

2*0 

300 


IF|JJ.EQ.NOIR(NTRII,l)>JK  = 
CONTINUE 

TEMP  ■  TEMP  ♦  CAY( 1K.JK .NTRI 
CONTINUE 

GO  T0<210,220.230.240>.  KSS 
SIM1I 1 I-IS.JJ-JS1 >  *  TEMP 
GO  TO  300 

SII 1 I-IS.JJ-JS2I  *  TEMP 
GO  TO  300 

SIPK11-IS.JJ-JS3)  *  TEMP 
GO  TO  300 

CAV12I I l-IS. JJ-NuD)  *-TEMP 
CONTINUE 


L 

I 


I 


NON  CALCULATE  INDEPENDENT  TERM  G  *  K12  *  (KNOWN  DISPLACEMENTS) 

CALL  MXMULTICAY12.FD.  G. II. 14,1) 

RETURN 

END 


SUBROUTINE  TMXMUL (A.B.C.N.M.K) 

C 

C  THIS  SUBROUTINE  MULTIPLIES  MATRIX  B  BY  THE  TRANSPOSE  OF  MATRIX  A 
C  THE  PRODUCT  IS  ADDED  TO  C 
C 

C  A  IS  (N  X  Ml 
C  B  IS  IN  X  K) 

C  C  IS  (M  X  K) 

C 

DIMENSION  A(N.M)  .  BIN.K)  .  C(M.K) 

DO  1  !*1.M 

DO  1  L>1.K 

C  CC I .L  >  *  0. 

DO  1  J* 1 ,N 

C(I.L)  *  C(I.L)  ♦  A(J.I)  *  B(J.L) 

1  CONTINUE 
RETURN 

END  1*8  CARDS 


SUBROUTINE  MXMULTt A.B.C.M.N.K ) 

C 

C  this  SUBROUTINE  MULTIPLIES  MATRIX  A  BY  MATRIX  B  AND  STORES  THE 
C  PRODUCT  IN  C.  (C  CANNOT  Bt  THE  SAME  AS  A  OR  B. ) 

C  , 

;c  A  IS  (M  X  N) 
s’c  B  IS  IK  X  (I 
C  C  IS  (M  X  K ) 

C 

DIMENSION  AIM.N)  .  BIN.K)  .  C(M.K) 

C 

DO  1  1*1. M 

DO  1  1=1. K 

C ( I  •  L  >  •  0. 

DO  1  J*1.N 

C(l.L)  =  CII.L)  ♦  AII.J)  *  B(J.L) 

1  CONTINUE 
RETURN 
END 


onnnn 


SUBROUTINE  MXCcniA.B.X.M.NI 

C 

c  this  subroutine  multiplies  MATRIX  a  i*xn»  BV  constant  X*  result  in  n 

C  A  MAY  BE  SANE  AS  B. 

c  this  subroutine  multiplies  matrix  a  IMXNI  hy  constant  X,  result  in  9 

C  A  MAY  BE  SAME  AS  B* 

DIMENSION  A(M«N)  .  P(M,N) 

DO  1  I-l.M 
DO  1  J" 1 *N 
B( I • J) *  X*A ( 1 • J I 
1  CONTINUE 
RETURN 
END 


SUBROUTINE  MXSUB ( A.B.C .M »N I 

THIS  SUBROUTINE  SUBTRACTS  MATRIX  B  FROM  MATRIX  A.STORES  RESULT  IN  C 

A*  B.  AND  C  ARE  IM  X  N)  (C  CAN  BE  THt  SAME  AS  A  OR  91 

DIMENSION  AIM.NI  •  BIM.N)  •CIM.N) 

C 

00  1  I-l.M 
DO  1  J-l.N 

CII.J)  ■  AU.JI  -  B(I.J) 

1  CONTINUE 
RETURN 
END 
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SUBROUTINE  INVERT IB.X .X.2 , XV ’ N.FL AG  | 

C  THIS  SUBROUTINE  at  I S  UP  A  uNIl  MATRIX  ADJACENT  TO  blK.X) 

c  elementary  row  operations  are  then  performed  on  the  Ntw  k  x  2x  matrix 

C  10  REDUCE  BlK.X  I  TO  A  u\ 1 T  MATRIX.  THIS  WILL  PLACT  THE  INVERSE  OF 

c  the  matrix  Bit;. kt  in  the  right  half  of  pi<»?n 

C  ON  EXIT.  THE  INVERSE  OF  q  REPLACES  P 

C  B9wS  N  ARRAY  OF  2»K»*2  LOCATIONS  CONTAINING  THE  MATRIX 
C  K  IS  THE  DIMENSION  OF  THE  SOUARF  MATRIX  B 
C  X?  IS  2«X 

C  XM|N  is  THE  SMALLtST  ALLOWABLE  MAGNITUDE  OF  THE  PIVOT 

c  flag  will  he  returned  as  c.  if  the  inversion  went  off  ok 
c  flag  will  be  returned  as  i ...  if  a  pivot  flement  was  too  small 
c  flag  should  bf  tfsttc  after  each  call  to  this  rout  inf 
c 

DIMENSION  BIK.K2  ) 

c 

FLAG  «  0. 

SFT  UP  UNIT  MATRIX 

IF  I X.GT • 1  I  GO  TO  20 
IE ( ABSIBI  1 . 1  ) ) .LT.XMIN  )  GO  TO  10 
Bll.ll  ■  l./BI  1*11 
RETURN 

20  CONTINUE 

DO  1  1-1. X 

DO  1  J-l.X 
B< I «K+JI  «  0. 

IFH.EO.JI  B  I  I  *  X*J  I  -  1. 

1  CONTINUE 

FIND  LEADING  ELEMENT  wITh  GREATEST  MAGNITUDE 

DO  6  J-l.X 
M  ■  J 
N  «  J*1 

1 F ( J.EO.K  t  GO  TO  21 
DO  2  L-N.K 

IF  (  ABS I  P  IM.JEI.LT.ABSIBIL.JJM  M-L 
?  CONTINUF 

21  CONTINUE 

IF  lABSIBIM.JI E.LT.XMJNJ  GO  TO  10 
IFIJ.EO.K)  GO  TO  31 

INTERCHANGE  jth  and  mth  rows 

DO  3  L-J.K2 
D  -  BU.ll 
8IJ.ll  •  BIM.L! 

BIM.LI  -  D 

3  CONTINUE 
3 1  CONTINUE 

2ERO  OUT  PIVOTAL  JTH  COLUMN,  SX|PPING  PIVOTAL  JTH  ELFMENT 

DIVIDE  JTH  ROW  BY  PIVOT 

DO  4  M*n  •  X  2 
B(J.M)  -  BIJ.M)  /  B(J.J) 

4  CONTINUF 
DC  t>  m.; 
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C  *  DETERMINES  RON  BEING  MOOIFIfO.  ON*  HMOU  *Db  AT  *  »|*f 

c 

IF  I  M.EO.J  I  GO  TP  A 
DO  5  L"N*K? 

C 

C  L  DETERMINES  ELEMENT  IN  The  **Th  NOk 
C 

N|M,L»  •  BIM.tl  -  •  NIJ.H 

%  CONTINUE 

6  CONTINUE 

C 

C  INVERSE  or  •  IS  NM  IN  RlwMT  MAt»  O* 

C  NON  MOVE  ft  INVERSE  U  •MERE  I*  MS 
DO  T  |al«K 
DO  7  J»|»r 

bii.ji  •  nii>j*«i 

7  CONTINUE 
RETURN 

10  FLAG  •  10. 

RETURN 

ENO 
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DECK  SET  UP  FOR  TEN  RUNS  OF  FUNDAMENTAL 
CASES  ONE  THROUGH  THREE  AND  SIX 


9JN 

1 

.8 

1 . 1 4F ♦ 7 

.7 

PUN 

7 

.8 

r.  * 

7 . 78F*7 

m  p 

RUN 

** 

.8 

O''.. 

3.4?F*7 

.7 

PUN 

4 

.8 

17  . 

4.58t*7 

.7 

RUN 

c 

.8 

16‘. 

8.  .61*7 

.7 

BUN 

8 

.  6 

30. 

1. 14F*7 

.7 

bun 

7 

.  6 

fi'. 

?.78F»7 

.7 

PUN 

8 

.  6 

o.  . 

3.47F 

.7 

RUN 

9 

.  6 

17.:. 

4.8ff87 

.7 

RUN 

1. 

.8 

18'. 

8.  iAF*7 

.7 

.8714788  1 
.•714288  7 
.•.714788  f 
.8714788  8 
.*714788  8 
.8714788  8 
.8714788  7 
.8714788  8 
.8714788  9 
.8714788  10 


(BLANK  1 
(BLANK  ) 
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DECK  SET  UP 

FOR  TEN  RUNS  OF  FUNDAMENTAL 

CASES  FIVE  AMD  FOUR 

RUN  1 

4.7  ‘sF+4 

1  ,4''  74'’** 

.4 

1 

RUN  ? 

1.4',74F*e 

? 

PUN  1 

14.?*iE>6 

1  .4  T  74 F ♦*» 

.4 

RUN  4 

19.00E+6 

1.4.74E+S 

.<5 

4 

RUN  ■> 

1.4r74E*S 

4 

RUN  4 

4.7*F ♦ft 

1.4r>74F+«. 

.*) 

4 

RUN  7 

O.SOE+fc 

1.4774F^r- 

.4 

7 

RUN  8 

14.?5F«-A 

1  ,4<'74E*5 

.6 

R 

RUN  0 

14.00F+A 

1.4474F** 

o 

RUN  lf> 

1.4074F** 

1" 

( BLANK ) 

(BLANK  I 
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DECK  SET  UP  FOR  RUNNING  PHASE  TWO  AND 
PHASE  THREE  PROGRAMS.  THIS  DECK  ASSUMES  THE 
SAME  TEN  RUNS  AS  THE  SAMPLE  DATA  FOR  THE 
FUNDAMENTAL  CASES. 


c 

1  .  1  F  ♦  7 

.2 

.'■71428'. 

1 

c 

.  7 

.'714704 

2 

c. 

.2 

.'71428', 

7 

#  Cs 

l?r. 

4.84F*7 

.2 

.'714288 

4 

If  • 

6.  °F*7 

.2 

.8714288 

8 

•  f 

^  • 

i.ur*7 

.2 

.8714288 

6 

•  f 

S  • 

2.2BF*7 

.2 

.'714788 

7 

•  6 

o  # 

3.42c*7 

.7 

.87147R8 

8 

•  6 

12  • 

4.sbf*7 

.'71478' 

0 

•  f 

If 

IS.  'PF*7 

.7 

.'714288 

10 

20  CARDS 
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PHASES  TWO  AND  THREE 


PROGRAM  FENG 

COMMON  n/ 

1  SIT 16 *10. 6) »X(S3)*V(S3 )  •  NDIR<79,4), 

2  N»N »CENT ( 79  >2  I  *  VF  ,E ( 2 ) * G I  2 ) , XNU ( 2 )  . 

3  SMAC (6*131*  SNIC(6«79I.£N»79|  .GAMMA  ,NS 
OAT  A  <P|*3.141S9I 

C 

C  IMIS  PROGRAM  HEADS  STRtSSES  FROM  TAPt  20  ASSUMED  WRITTEN  AS  FOLLOWS 
C 

C  SIR  FUNDAMENTAL  CASES*  EACH  of  WHICH  was  run  CONSECUTIVELY 

C  NS  times*  fach  run  producing  stresses  for 

C  79  TRIANGLES. 

c 

C  NS  IS  THE  FIRST  RECORD  ON  THE  TAPE  (NS.LE.10) 

C  FOLLOWING  are  NS  RbCORUS  OF  316  STRESSES  FOR  EACH  OF  THE 
c  fundamental  CAsts  one  thru  four. 

C  FOLLOWING  are  ns  RECOROS  OF  138  STRESSES  FOR  EACH  OF  THE 
C  FUNDAMENTAL  cases  five  through  six 

REWIND  20 

C 

00  10  |a2.4.2 
DO  10  J*1.13 
10  SMRCII.JI  -  0. 

REAO  (201  NS 
PI024-PI/24. 

00  IS  1*1.13 
ALP  •  II-1I9RI024 
SMAC 13* II  ■  COSI ALP 1**2 
SMAC 1 1*1)  •  SINIALPI**2 
IS  SMACIStll  •  SINI2**6LP>/2. 

READ  1020* I JUMP 
C 

C  I  JUMP  ■  |.  FIRST  TCN  CA. Ts 
C  I  JUMP  •  |.  SECOND  TEN  CASES 

C 

00  TO  (10.UI.IJUMP 
M  RCWINO  20 

CALL  TAPES* IP 1 20*6.0 1 

IS  continue 

KSO  K-1.6 
20  J*1*NS 

20  RCAO  (201  (S(I*J*K 1.1*1.3161 
C 

C  CROSS  OVER  THE  EOF  GAP 
C 

REAO  (201  EOF 
>0  CONTINUE 
00  SO  K*S*6 
00  60  J*1»NS 

40  REAO  1201  (SII.J*lt.l*l.l*Ol 
RCAO  (201  EOF 
SO  CONTINUE 
C 

C  NOW  MAVE  ALL  RAW  STRESS  DATA  FOR  NS  RUNS  OF  6  FUNDAMENTAL  CASES 

RAM  •  0 
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rr 


CALL  TOPOL 
LINE  •  * 

PRINT  1004,<J.J*1.3).IJ.J*1.3> 
DO  130  I*lt37.? 

IFILINE.lt. 34)  GO  TO  120 
LINE  ■  4 


PRINT  1004.1 J.J«1.3I .IJ.J-l  *3) 

120  LINE  *  LINE  ♦  2 
II-IM 

130  PRINT  1005. 1.  (NDIR(I.J),J-1,4>,II,INDIR(II,J),J*1,4) 
1*79 

PRINT  1015.1.1 NO IRI I , Jl ,J-1 ,4| 

C 

VF1  ■  0. 

150  REAO  1000.  VF.  GAMMA,  El  1 1 .XNUI 1 ) .BETA 
»CAS£  *  KASE+l 
IFIVF.EO.O.I  GO  TO  950 
EI2 I  -  Ell  1 /GAMMA 
XNUI 2  I  ■  XNUI 1 1 /BET A 
Gil)  •  Etll/l2.*ll.+XNUtim 
GI2 )  ■  EI2I/I2." I1.4XNUI2I) ) 

PRINT  1001  .VF.EI1I.E  121  .GID.GI2I  .XNUI  1 )  .XNUI  2  ) 

I FI ABSTVF-VF  ll.LT.l.E-6)  GO  TO  350 
VF1  ■  VF 
CALL  GEON 

C  PRINT  OUT  NODE  INFORMATION 

C 


_ I  ■  1. 

190  CONTINUE 
LINE  •  4 
PRINT  1007 
2 00  CONTINUE 

IFI  I.NE.32)  GO  TO  210 
_ ■  !♦! 

PRINT  101R.  I.  XIII,  VIII.  IP1.  XIIPII*  VIIP1I 
GO  TO  220 
210  IP2  •  I«2 

PRINT  101R.IU.XUI  .VIJII.J-I.IP2I 

219  l-IO 

_ Liilt  •  MRE  ♦  2 

1FILINE.GT.3AI  GO  TO  190 
GQ  TO  200 

220  CONTINUE 

d..  . 

250  CONTINUE 


DO  300  1-1.77.2 

II  •  141 

PRINT  1009*1 .CENT I  I . 1 1 .CENT 1 1 .2  I .  1 1  .CENT 1 11,11 .CENT  111.21 
300  CONTINUE 
1-79 

_  PRINT  1009.1  .CENT  II. II. CENT  It, 21 
350  CALL  FIXSTRIRASEl 
CALL  PHASE2IRASE) 

GO  TO  150 
950  REWIND  20 
CALL  PHASE3 
STOP 
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1000  F0RMATI9C10.3} 

1001  FORMAT I 1H1 » 19X  *2MVF» 13X »4HE 1 1 )  «  13X **HE( 2 ) • 13x *4H0(  1 ) *13X  **HG (2 ) • 

1  12X  *9MMU( 1 1 » 12Xt)HMUI2 l/lXt7J4X#E13»6l  ///) 

1004  FORMAT (INI*  OMTRI ANGLE *3 ( 2X  «3HN0DE  1 1 1 1 ,4X ttHMATERI AL'IOX t 
1  IHTRIANGLE 1 3 (2X  »)HNODE  . 1 1 » »4X .8MMATERI At/ ) 

100)  FORMAT  I IX *21 )X  *  I 3t)X« I3»3Xt I 3*)X* I 3  .9X» J 3.10X >/) 

100T  FORMAT  I lHl»3(4HMOOEf 12X.lMX.12X.lHY.axi/) 

1001  FORMAT ( 1H1 »2  < tHTR |ANGLE»5X • 1CHCENTR01 0  X.5X.10HCENTROID  Y  J / » 

1009  FORMAT < 1M  #2 ( 3X« 13. )X »E10.3,)X .E10.3 )> 

1019  FORMAT (lXt4<)X*l3>*9X*I3/l 


1018  FORMAT (  IX »3<  IX  «  I  3  »3X  »F  10.5 .3X  .F10.5  «8X  )  /  J 
1020  FORMAT (lit 
ENO 
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SUBROUT  INE  MX  SOL  (B.K.K2.XMI  N  <FL  AG ) 

C  THIS  SUBROUTINE  SOLVES  IK  X  K)  SYSTEM  OF  EQUATIONS  AND  PLACES 
C  THE  RESULT  IN  THE  IK*1ST)  COLUMN  OF  B.  B  IS  MU  K2 1  MATRIX. 
C  WHERE  K2  *  K*l. 

C  XMIN  IS  THE  SMALLEST  ALLOWABLE  MAGNITUDE  OF  THE  PIVOT 

c  flag  will  be  returned  as  g.  if  the  inversion  went  off  ok 
c  flag  will  6E  returned  as  10.  if  a  pivot  element  was  too  small 
c  flag  should  be  tested  after  each  call  to  this  routine 
c 

DIMENSION  B I K  <K2 I 

c 

flag  »  0. 

c 

c 

c  find  leading  element  with  greatest  magnitude 

c 

DO  6  J*  1  *  K 
M  •  J 
N  *  J*  1 

IF(N.GT.K)  GO  TO  21 
DO  2  L*N.K 

IF  I ABS (B(M.J) >.LT.ABS(B(L.J> ) )  M*L 

2  CONTINUE 
21  CONTINUE 

IF  (ABSIBIM.J) I.LT.XMIN)  GO  TO  10 
C 

C  INTERCHANGE  JTH  AND  NTH  ROWS 

T  - 

DO  3  L*J»K2 
6'  ■  BIJ.LI 
BIJ.LI  >  BIN. LI 
BTm.LI  >  0 

3  CONTINUE 
C 

C  ZERO  OUT  PIVOTAL  JTH  COLUMN.  SKIPPING  PIVOTAL  JTH  ELEMENT 
C 

C  DIVIDE  JTH  ROW  BY  PIVOT 
C 

DO  A  M-N.K2 

BIJ.MI  •  BIJ.MI  /  BtJ.JI 

4  continue 

DO  6  M-l.K 

C  M  DETERMINES  ROW  BEING  MODIFIED.  ONE  WHOLE  ROW  AT  A  TIME 
C_ 

IF  (  M.EO.J  )  GO  TO  6 
DO  5  L-N.K2 

C 

C  L  determines  element  in  THE  MTH  row 

c 

BIM.LI  «  BIM.L I  -  B(M.J)  •  BIJ.LI 

5  CONTINUE 

6  CONTINUE 

C 

RETURN 

10  FLAG  >  10. 

RETURN 

END 
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SUBROUTINE  TOPOL 

THIS  subroutine  sets  up  the  topological  relationships  for  program 

FENG.  THESE  REMAIN  INVARIANT  WHEN  THE  GEOMETRY  CHANGES  WITH  VF. 


COMMON  /l/ 

1  S< 316.1-.6) .X(53> »Y<53 I .  NDIRI79.4). 

2  M *N .CENT (79.2)*  VF.EI2) »G( 21 »XNU( 2  >  . 

3  SMAC (6.13) •  SMICI6.79) .EN(  79)  .GAMMA  ,NS 
DIMENSION  JNDIRI791  .  KNDIRI79)  .  LNDIRI79) 

DATA  ( JNDIR  * 

1  1. 1. 1. 2. 2. 3*3. 3. 4. 4. 4. S. 6*  7. 7*8. 8.8*9. 10. 10. II. II. 12. 13.13* 

2  14, 15. 15. 16. 16. 1 7. 17, 18. 18. 19.20. 23. 24.24.2 S. 25. 25. 26. 28. 29, 

3  29. 30, 3u, 35. 2 1.2 1.2 1.2 1.22. 22. 2 3. 2 3. 27. 2 7, 2 7. 28. 28. 36. 46, 37, 

4  47.38.48.39.39.40.41,41  41,42.42.43.43) 

DATA  IKNDIR  * 

5  2. 3. 4. 6, 7. 7. 8. 9, 9, 10. 11, 11, 13. 6, 14, 14, 15, 16, 16, 16, 17 ,10, 

6  18.18.20.21.21.21.22,15.23.23.24.17.25.25.35.27,27.28.28.29. 

7  30.30.32.32.33.33.34,36.35.37,38.39,39.40.40.41,41,42.43.43.44, 

8  45.37.46.38.47.39.48.49.49,40.50.51.51.52.52.53 ) 

DATA  (LNDIR  « 

9  3. 4, 5. 7. 3. 8. 9. 4, 10. 11, 5, 12, 14, 14, 8, 15, 16, 9, 10, 17, 18, 16, 12, 

1  19.21.14.15.22.23.23.17,24.25.25,19.26.21.24.28.25.29.30.26. 

2  31 .29.33.30.34.31 .37,37.38.39.22.40.23.41 .27 ,42 .43 .28 .  '.4 . 32 .  \ 

3  46,36.47.37.48.38.49,40.50.50.51 .42.52.43.53.44  ) 

DO  10  I  >  1  •  36 

10  NDIRII.4)  •  1 
DO  20  1-37.79 
NDIRII.4)  -  2 
20  CONTINUE 

DO  100  I  -  1.  79 
NDIR(I.l)  -  JNDIRII) 

NBIRI 1.2)  •  KNDIR(I) 

NDIRII.3)  -  LNDIR 1 1 ) 

100  CONTINUE 
RETURN 
END 
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C  ON MON  / 1 / 

1  S(316.1^.6).X(53).V(53)«  NDIRI79.4), 

2  M.N.CENTI79.2) •  VF  .E  I  2  )  .01  2  I  .XNUi  2  )  • 

3  SMAC (6.13) •  SMICI6.79) »EN( 79)  .GAMMA  .NS 

COMMON  /2/  X116).V1I6) 

DIMENSION  NOTRI <6.21 

DATA  (NOTRI  *  23.  26.  29.  32.  33*  36. 

X  37.  34.  36 •  38.  40.  431 

OATA  (RAD  ■  37.293781 
S3  -  SORT (3.) 

S 302  •  S3/2. 

PI  •  3.1413927 
R  •  SORTI2.*S3*VF/PI > 

XII)  «  S302 
veil  «  .3 
DO  210  1*1 .4 

X||4l>  ■  S302  ~  R/4.*C0S1P1*I l-D/6.1 
V  < 1*1)  *  .5  -  R/4.  *SINIPl*II-l)/6.) 

210  CONTINUE 

DO  220  1*1.7 

X( |*3 )  -  S302  -  R/2«*  COS I P I • I  I - 1 > / 1 2 . > 

V| 1*5 |  .  .3  -  R/2.*  SINIPI«( 1-1 »/12.) 

XI  14-12  I  •  S302  -  3.*R/4.*C0SIPI*I  1-1 1/12*1 

TII412I  «  .3  -  3.  *R/4.*SINIPI*I 1-1  I/12.I 

XI 1*19 1  •  S302  -  R  •  COSIPI*! I— 11/12.1 
VI] 419 |  -  .5  -  R  •  SINIPI*II-1I/12.) 

220  CONTINUE 

XI 34 1  *  S302 
VI 34 1  »  -  .3 
X 1 3 1 1  •  S302 

VI 31 )  *  IV 1 26 1 *V 134)1  /  2. 

X 1 43  I  -  -.3*  TANIPI/6.1 
VI49)  *  .3 

OX  •  1 1 •— R I / 1 2.*C0S IP  I /6. 1 1 
XI 36 1  -  X 1 45  I  ♦  OX 

VI36I  -  .3 

XI 39  I  -  1X120)4X13611/2. 

VI 39 )  •  .9 

DO  230  I  *  1.8 
X I  1 449 1  *  <4  -II*  X14SI  /4. 

VI 1449)  *  14  -I )*  VI451  /4. 

230  CONTINUE 

DELX  ■  X ( 46 )  -XI 49) 

DEL V  ■  V ( 46 I —7 I 45 ) 

DO  240  I  *  1.8 
XII 436 )  *  XI  1 435 )  4DE L X 
V (  1 436 )  *  V (  14351  +DEL V 
240  CONTINUE 

X ( 32 )  *  X ( 44  )  ♦ I  X  I  34  I  — X  1 44 ) ) /3 . 

V ( 32  I  *  -.5 

X(73)  =  2 . *X I  32 )  -  X ( 44 ) 


V( 33 )  =  -.5 

XI27I  *  X(23)  *  I  X ( 32 >-X ( 23 ) ) /3 . 


154 


Y(2 7)  *  Y(23)  ♦  (Y(32)-Y(23) 1/3. 

X (26 )  ■  2.»X(27I-X<23) 

Y(28)  ■  2.«Y(27)-Y(23) 

X (29 )  >  X ( 28  )  ♦(X(31)-X(28) »/3. 

Y(?9)  ■  V(28)  ♦(V(31)-Y(28))/3. 

X(30)  «  2.*X ( 29) -X( 28 ) 

Y(30)  «  2.*Y(29)-Y(26) 

C 

c 

00  200  1-1.79 
NDIR1  ■  NDIR ( I *1 ) 

NDIR2  ■  NOIR ( t  *2 1 
NDIR3  ■  NDIR (I *3) 

CENT (1*1)  -  (X (NDIR1 )+X(ND!R2)+X( N0IR3) ) /3* 
200  CENT (1*2)  ■  (Y<NDIRl)*Y<N0tR2>«Y(NDtR3)>/3. 
00  300  I >1*6 

Xllll  •  ( X ( I*19)*X( 1*20) )/2. 

300  YKI)  >  (V( I*19)*VI 1+20) )/2. 

RETURN 

END 
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SUBROUTINE  phase?! ji 


r 

C  THIS  SUBROUTINE  CALCULATES  AN0  PRINTS  THE  PARAMETERS  REQUIRED 
C  IN  PHASE  II.  ONE  CALL  TO  THIS  SUBROUTINE  PRODUCES  12  BLOCKS  OF  79 
C  SETS  OF  DATA.  ONE  FOR  EVERY  TRIANGLE  FOR  EACH  OF  12  VALUES  OF 
C  ALPHA. 

C 

C  K  COUNTS  ALPHA 

C  1  COUNTS  TRIANGLES 

C  M  COUNTS  FUNDAMENTAL  CASES 

C  L  COUNTS  POSITIONS  WITHIN  MICROSTRESS  VECTOR 

C  J  RUN  NUMBER 
C 

COMMON  / 1/ 

1  SITlfe. 10. 6) .XI53) .VIST  I .  NDIRI79.4) » 

2  M.N.CENT (79.21.  VF.EI2i.GI2) .XNUI2I  * 

3  SMAC (6.131.  SMICI6.79) «EN(79I  .GAMMA  *NS 
DATA  I S IGFT2*  7000. )  .  I S IGFC ?• 17000. ) 

IFIABSIGAMMA-  l.I.LE.l.)  GO  TO  100 
IFCABSCGAMMA-  30.I.LE.1.)  GO  TO  120 
IFIABSIGAMMA-  60.I.LE.1.)  GO  TO  140 
IFIABSIGAMMA-  90.I.LE.1.I  GO  TO  160 

I F I ABS I  GAMMA - 1 20 • ) • LE • 1 • I  GO  TO  ISO 
IF ( ABS I  GAMMA- 160. I .  LE . 1 . )  GO  TO  20 0 
100  S1GFT1  ■  7000. 

SIGFC1  «  17000. 

GO  TO  230 

120  SIGFT1  >  160000. 

SIGFC1  •  160000. 

GO  TO  250 

140  SIGFT1  ■  200000. 

SIGFC1  •  200000. 

GO  TO  250 

160  SIGFT1  >  230000. 

SIGFC1  ■  230000. 

GO  TO  230 

180  SIGFT1  ■  300000. 

C IGFC  1  •  300000. 

GO  TO  250 

200  SlfiFTl  ■  330000. 

SIGCTl  •  350000. 

250  CONTINUE 

DO  300  K«1.13 
ALP  ■  7.3*IK-li 
DO  330  1*1.79 
J 4  •  4*1 l-li 
!2»?«M|-li 
DO  260  L* 1 *4 
SMICIL.lt  •  0. 

DO  260  M* 1 .4 

?60  SMICIL.lt*  SMICIL.I » ♦SI  1 4*L » J.M » *SMAC CM »K ) 

DO  270  L-1.2 
SMICIL*4,II  ■  0. 

DO  270  M«3.6 

270  SMIC(L*4, 1  I  »  SM |C I L*4 , 1  1 ♦ S I  f  ?*L » J.Mt  *$MAC IM.K i 
IFCI.LE.3M  GO  TO  300 
SXY2  ■  SMICIl.ltYSMICI2.lt* SM ICI3.I) 

IFCSXV2.GE.3. I  GO  TO  2 BO 
S IGF  •  S IGFC 2  * 

GO  TO  290 
280  S IGF  •  SIGFT2 
290  GO  TO  320 
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inn  SXY 2  •  SMIC<l*n*SM!C<2«l)+SN!CI1'tt 
IFISXY2.GE.0.I  GO  TO  310 
S IGF  •  SI6FC1 
GO  TO  320 
310  SIGF  «  SIGFT1 

320  EN(|l-SIGF*SQRT(2./IISM|Cll«lt-SMIC<2.l)  »**2 

1  ♦  I SMICI 2.  ll-SMIC  13. 1  n«»2*  I SMIC 1 3. 1  l-SMICI  1.1 1 1»«2 

2  ♦6.*ISNICI4.II*«2*SVICI3.Il»»2*SMlCI6.n«»2m 
330  CONTINUE 

PRINT  1002. ALP 
PRINT  1000 
DO  400  N>1.79 
IFIN.NE.34I  GO  TO  400 
PRINT  1003 
PRINT  1000 

400  PRINT  1001.  N*  (SMICIJJ.NI.JJ-I.SI.ENINI 
CALL  INTERFIK.JI 
300  CONTINUE 

1300  FORMAT I9M  TRIANGLE. RX.THSIGMA  x.RX.THSIGMA  V.IX.7HSIGMA  2. 
1  9X.6HTAU  XY.9X.6MTAU  X2.9X.6HTAU  Y2.14I.1HN/I 

1001  F0RMATI6X.l9.7l3XElU.3il 

1002  FORMAT  I  SHI  THETA  -.F1C.3/I 

1003  FORMAT  I lHl I 
RETURN 

END 
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SUBROUTINE  PHASE 3 


c 

c  this  subroutine  reads  and  prints  all  phase  mi  data  FROM  TAPE  96 

c 

COMMON  /l/ 

1  SI316.10.6)  .XIS3I.YI53).  NDIRI79.A). 

?  m.N.CENTI 79.2 ) .  VF.EI2I .G(2) .XNUI2)  • 

3  SMACI6.13).  SMICI6.79) .ENI79I  .GAMMA  ,NS 

DIMENSION  ENSIA.S.13) 

DIMENSION  SMI6.4I 
REMIND  96 
IVF  *  0 
VF1  *  0. 

GAMMA1  >  1000. 

PRINT  1000 
NPAGE  »INS*13l/2 
C 

C  NS  ASSUMED  EVEN 
C 

DO  300  I P» 1 .NPAGE 
PRINT  1001 
DO  300  J* 1 .2 

READ  (96)  VF.EI.EII.GI.GII. XNU I . XNUI I .N.ENI.I SMI  K  .1 I.K*1.6I. 

1  H.ENI I .1 SMIK.2) .K«l .6  I .  X1.Y1.EN1  .  SNAv  • 

2  X2.V2.EN2.TAUTAV. I 
GAMMA  >  El /El  I 
IFII.NE.I)  GO  TO  100 

IF ( GAMMA. LE .GAMMA1*. 5 1  GO  TO  60 
IGAM  *  IGAMM 
GO  TO  100 
60  IVF  ■  IVF*1 
IGAM  «  2 
GAMMA 1  >  GAMMA 
100  ENST  *  ENI 

IF(ENST.GT.ENll)  ENST  >  ENI I 
IF(EN1.LE.-1.E*8I  GO  TO  110 
IF  I ENST .GT .ENI I  ENST  •  ENI 
110  IFIENST.GT.EN21  ENST  »  EN2 
ENSIIVF.IGAM.il  »  ENST 
AU>  ■  7.5»II-1I 
PRINT  1002 

PRINT  1003.  VF.EI.EII.GI.G1I.XNUI.XNUII.ALP 
PRINT  1004 

PRINT  lOOS.tSMACIK.1 1 .K*1.6I 
PRINT  1006 

PRINT  IOC 7 »  N.ENI.I SM <K.1I.K*1.6) 

PRINT  IOCS 

PRINT  1007.  M.ENII.ISMIK.2I.K-1.6I 
PRINT  1039 

IFIEN1.LT.-1.E+B)  GO  TO  180 
150  CONTINUE 
PRINT  1010 

PRINT  1017.  X1.Y1.EN1 .SNAV 
ISO  CONTINUE 
PRINT  1011 

PRINT  1017.  X2.V2.EN2.TAUTAV 
PRINT  1 C 1 3 
300  CONTINUE 

DO  400  I >1.2 
DO  400  J.2.IGAM 
DO  400  K •  1  <  1  3 
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C  INDEX  1  FOR  GAMMA  IS  SAVED  FOR  HOMOGENEOUS  CASE *  RUN  SEPARATELY 
C 

PUNCH  2000.1 . J.K.ENSI  1 « J.K ) 

400  CONTINUE 

1000  FORMAT ( 1H1 »50X  »9HPHAS£  III) 

1001  FORMAT  1 1H 1 ) 

1002  FORMAT  1 13X  .2HVF.12X.3HE  I.11X.4HE  II.12X.3HC-  I.11X.4HG  II. 

1  11X.4HNU  I  . 10X.SHNU  1 1 . 10X .SHTHE T A > 

1003  F0RMATI8ISX.E10.3)/) 

1004  FORMAT! IX. 13X.2HNX.13X »2HNV> 13X.2HNZ.12X.3HTXY.12X.3HTX2. 

1  12X.3HTX2) 

1C0S  FORMAT11X.6ISX.E10. 31/1 

1306  FORMAT !  IX  .8HTR I  ANGLE  .4X.12HSMALLEST  NI  «8X  .7HSIGMA  X.8X.7HSIGMA  y, 
1  8X.7HSIGMA  Z.9X.6HTAU  XT.9X.6HTAU  X2.9X.6MTAU  Y2 ) 

1007  FORMAT! IX *6X • I2.6X.E 10. 3.6 (3X.E10.3)/) 

1008  FORMAT  !  1X.8HTRIANGLE.4X.12HSMALLEST  NI  I  »BX  .7HSIGMA  X.8X.7HSIGMA  Y, 

1  8X.7HSIGMA  2.9X.6HTAU  XY.9X.6HTAU  X2.9X.6HTAU  Y2) 

1009  FORMAT  1 50X.9H INTERFACE  I 

1010  FORMAT ( 8X .lHX •  1 IX. 1HY «4X . 12H  SMALLEST  N1.3X.1 SHAVE RAGE  SIGMA  N> 

1011  F0RMATI8X.1HX.11X.1HY.4X.12H  SMALLEST  N2.3X.1SH  AVERAGE  TAU  T) 
1013  FORMAT!//) 

1017  FORMAT (1X.F8.3.4X.F8.3.2E16.3/) 

1020  FORMAT ! 8X . lHX  .11X.1HY.1X. 1 SHAVER AGE  SIGMA  N) 

2000  FORMAT 13T3.F1S.8) 

STOP 

END 
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SUBROUTINE  FIXSTR(XASE) 


THIS  SUBROUTINE  MODIFIES  The  STRESSES  SII.J.KI.  1=1.316.  X»1.4  • 

RUN*  XASE  .  PRODUCED  UY  THE  MS  RUNS  OF  FUNDAMENTAL  CASES  ONE 
thru  four. 

COMMON  /l/ 

1  SI316.1-  >6)  .X(53).V(S3).  NDIR(79,4), 

2  m.N.CENT t 79.2 ) •  VF .E (2 ) .01 2) .XNU<2 >  . 

3  SMAC (6.13).  SM|C(6.79| .EN( 70)  .GAMMA  ,NS 

DIMENSION  A < 3 ,4 ,3 > .ARC ( = • 3 ) . AREA ( 79 ) .  2(3.4).  ARTOP ( 1 1 ) . AREND ( 6 ) 
DIMENSION  P  TEND ( 7 ) .  PT T OP ( 1 3 ) . TR I  TOP ( 1 1 ) .TR I  END ( 6 ) .  TEMPI316.4) 
TYPE  INTEGER  PTEND, TRIEND. PTTOP.TRITOO 
DATA  ( TR I T0P=1 .4 . 1  3  .2S  .  37  ,E  0 .64 . 79 .6  3  .46 .48  > 

DATA  (TRIEND *3. 12*24. 36. 44.49) 

DATA  (PTEND =1.6. 12. 19.26. 31. 341 

DATA  (FT  TOP* 1 , 2 .6 . 1 3 .20 . 3S . 36 »4S .S 3 .44 . 32 . 33 .34 ) 

DC  SO  1=1.7 
Jl  =  PT  TOP ( I  ) 

J2  *  PT  TOP ( 1 ♦ 1  ) 

SO  ARTOPI  I  I  *  X( Jl )-X( J2I 
DO  luO  J*9 • 1 2 
J1=PTT0P( J) 

J2*PTT0P( J*1 ) 

100  APTOP(J-l)  »  X(J2)-X(J1) 

DO  110  I*  1,6 
Jl  =  PTEND ( I ) 

J2  «  PTENDl I ♦ 1 1 
110  AREND (  I  )*Y(J1 )-Y(J2) 

00  120  1=  1.79 
Jl  =  NDIR( I .1 » 

J2  •  NDI R ( 1.2) 

J 3  >  NDIRI 1.31 

120  ARE  A (  I )  *  X ( Jl )• I Y( J2 >-Y( J3) I  *X I J2>P< V( J3)-Y( Jl )  ) 

|  *X< J3  V*(V( Jll-VI J2)I 

DO  130  1=1.3 
DO  130  J* 1.4 
130  2(1. J)  =  J. 

DC  150  I«  1,6 
tl  •  TRIEND(I) 

12  *  ( 11-11*4  *1 
DO  ISO  J«  1.3 

ISO  2(1. J)=  2 ( 1 . J 1 *ARE NO ( I  )*S( I2.XASE.J) 

DO  160  1=1,11 

11  «  T R I T OP (  1 ) 

12  «  (11-1 1*4  *2 
DC  160  J*  1  .3 

160  2(2. J)  •  2(2.0 )♦ ARTOP ( I  ) *S ( 1 2 .X ASE . J I 

DO  180  I  *1.79 
12  •  ( 1-1 >*4*3 
DO  180  J  *1.3 

180  2(3. J>  =  2 ( 3 » J >*ARE A (  I  I  *S( I  2 .XASE » J > 

C  NOTE  THAT  AREA  ALREADY  CONTAINS  A  FACTOR  OF  TWO  FROM  ITS  DERIVATION 

C 

DO  300  1=1.3 
DO  200  J= 1 .3 
DO  200  X* 1 .4 
200  A(  J  .X  .  I  I  =  2  I  J  .X  ) 
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CO  TOI2in.22t.2)OI.I 
210  A| l *4 * 1 1  •  l. 

co  to  2«n 

22-  AI2.4.2)  •  S0RTI3.I 
CO  TO  ?4P 

2)0  Al ) .4.) I  ■  SQATI3.I 

2*0  CALL  NXSOtUll. 1. II. 3.4.1. E-7.FLAGI 

ififlac.nc.o.i  co  to  *oo 
00  2)0  J-l.) 

2)0  ARCU.ll  •  Al J»4. | 1 

c 

C  ASCII. 11  CONTAINS  till  .  1-1.2.) 

C  ARC  11*21  CONTAINS  H  1 1  •  1-1. 2.3 
C  ARC  11.31  CONTAINS  Cl  II  .  1-1.2. 3 
C 

DO  200  J-1.3U 

2*0  TtHRIJ.il*  ABC  ll.l )*SI J.KAbE  •  1  I  .ABC l2*lt#SU*KASE.2) 

1  ♦  ABCI).ll*SI  J.KASE.3I 

300  CONTI BUT 

00  *00  1-1.31* 

00  *00  J*l.) 

*00  SII.KASE.JI  •  TEMPI I.JI 
Nf TURN 

400  PRINT  1000.  KASE.  I 

STOB 

1000  FORMAT  1 14H1BLEM  UP.  RUN.I).«X.14HfUNDAMENTAL  CASE .13) 

END 
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SUBROUTINE  INTERFtI.il 


C 

C  I  --  INDEX  OF  ALPHA,  I  >  1  •  1 3 

C  L  --  R  IN  NUMBER  (DETERMINED  Br  VF.EI  COMBINATION! 

r 

COMMON  /l/ 

1  Sm6.1<.6)  .XI53)  .71531  .  N0IRI79.4), 

2  M.N.CENT I  79.2 ) »  VF ,£ ( ? » ,G( ?l  »XNU«2 I  « 

3  SMAC 16,13) »  SM1CI6.79) .ENI 79)  .GAMMA  ,NS 
C  'JMMON  /2/  X  I  I  6  I  •  Y  1  (  6  I 

DIMENSION  SNI  Ifcl.SMIttl.  T  AuT  1 1 6  I  •  T  AUT  I  I  ( 6 1 .  SNAVI6 )  .TAUT  AVI  6  ! 
DIMENSION  EN1I6I.  EN2I6I.  K 1 1 6  I •  K2I6) 

0 IMENS I  ON  NOTR I I  5.2  I 

C 

C  NOTRIIM.ni  —  NTH  INTERFACE  TRIANGLE.  MATERIAL  M 

C 

DATA  I  SNF  » 1  COCO. I .  I  TAUTF  ■  lOOOO.) 

DATA  t  NOTR I  *  25,  28.  29.  32.  33.  36. 

1  37.  54.  56.  38.  40.  43) 

DATA  (PI«3. 14159  ) 

C 

DO  100  K ■  1  .6 
KICK)  *  NOTR I (K.l) 

K  2  C  K I  ■  N0TR1IK.2) 

Ll  ■  K1IK) 

12  >  K2IKI 

PHI  >  PI • IK-.5 1/12. 

CPHI  ■  COS I PHI ) 

SPHI  >  SINIPHI) 

S2PHI  •  S I N ( 2 . MPH 1  I 
C2PHI  -  COSI 2. •PHI) 

SN I  IK) »CPHI ••2*SM  IC  (  1  .L 1 l  +  SPHI ••2#SM| C ( 2 . L  1  I 
1  ♦2.»SMICI4.L1)*SPHI*CPHI 

SN1 1  IK  )  •CPHI»«2*SM|C(  1  .L2)*SPHI»*2»SM|C(  ?.L2) 

1  ♦2.*SMIC(4.L2I»SPHI*CPHI 

TAUTI  IK  l-SORTH  (SMICtl.Ll  I-SMICI2.LD  )*S2PHI/2.-SMICI4.Ll  >*C2PHI  ) 

1  ••2*ICPH|«SMIC«5.Lll*SPHI»SMICI6»Lin»»2) 

TAUT  IKK). SORT  C  I  ISM|C(1.L2)-SMIC(?.L2M«S?PH|/2.-SMICI4*L2)*C2PHI) 
1  •• 2* ICPH| *SMIC I 5.L2 •♦SPHI  •SMICI6.L2))  ••2) 

SNAVIK)  ■  <SN1  <K >*SNI I  IK) )/2. 

TAUTAVIKI  •  C  T  AUT  |IK)»TAUTI!(K))/2. 

ENI  t  K  t  ■  SNF/  SNAVIK) 

EN2 (K  )  -  TAUTF/TAUTAVIK) 

100  CONTINUE 
.  PRINT  1000 
PRINT  1001 
DO  150  K-l.A 

150  PRINT  1002.K 1IK).SNI(KI.TAuTI|K).K2<K).SNIIIK) .TAUT  1 1  IK ) 

PRINT  1003 

1FISNII  1)1210*190, 190 
190  PRINT  1004 
DO  200  K • 1 .6 

20C  PRINT  1005, K. SNAVIK), TAuTAVIK).ENl(K)  .EN2IK) 

GO  TO  230 
7 1 O  PRINT  1014 
DO  220  K *  1  ,6 

227  PRINT  1 0(75 ,K  .SNA v( K )  .TAuTAvl K  )  ,EN2 1 K  I 
230  CONTINI'F 
C 

C  CALCULATE  and  WRITE  ON  TAPE  THE  NECESSARY  PHASE  III  VALUES 

C 

N  «  1 
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DO  250  J«2  *  36 

IFlENIJI.GE.ENIN)  I  JO  TO  230 

N«J 

250  CONTINUE 
M  a  37 

00  260  J>38«79 

IFIENI Jt.GE.ENIM) I  GO  TO  260 

MaJ 

260  CONTINUE 
LI  ■  10 

ENWUN  >  1C.E+10 
00  2 65  J«1.6 

IF<EN1I Jt.GT.ENWUN. OR. EN1UI.LT. 0.1  GO  TO  2*9 
Li  ■  J 

ENWUN  >  ENKJI 

269  CONTINUE 

IFIL1.LT. 71  GO  TO  270 
LI  >  1 

ENKL1I  •  -10.E+8 

270  CONTINUE 
L2  •  1 

00  280  J*2.6 

If!EN2! JI.GC.CN2IL2I  t  GO  TO  280 
L2  ■  J 

280  CONTINUE 

WRITE  1961  VF.E(1I.E(2)*G(1I.G(2I tlNUI 1 1 »XNU! 21* 

1  N.  ENINI.ISMICIJ.Nt.Jal.6l.  N.  ENIMI .ISNfCI J»M| *Jal.4|, 

2  XULll.VlILlt.ENllLlt  .SMAytLl )  * 

'  3  XIIL2) «Y1!L2 I  .EN2IL2 1  .TAUTAVIL2 I » I 

1000  FORMAT  1///50X.9N1NTCRF ACC  I 

Idol  FORMAT  1 27X  »5Mf IBER*  34X  .3MRESIN/ IX .2 !  8MTRI ANCLE  .98  .7MSICMA  N. 

1  10X.5MTAU  T. 20X1/1 

1002  FORMAT!  1X.2!5X  .  I3.5X.E10.3.5X.C10.3.20X  I  I 

1003  FORMAT  t /5CX.7HAVCRAGC/  » 

1096  FORMAT! IX. OhROSITION .  13x .7MSIGMA  N.15X.3MTAU  T .18X.2MI1  .18X.2MN2/I 
1005  FORMAT! 1X.7X.1 1.61 1JX.E10.SI  I 

1014  FORMAT!  1X.8HPOSITION.1SX.7HS1GMA  N.19X.9MTAO  T.18X.2HN2/I 
RETURN 
ENO 
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ENGINEERING  CONSTANTS 


100  DIMENSION  E33C 13«20>»E1  1  1 1 3.20).  G31  C  I  3*  20  >.  ANU31  C 13,20). 

1 10  a  A.'.'Ul  3(l3.i:u)<H'(  I  3.20 l.GP (  1 3.20) •  ANOPC  1 3.20). k.Tftt  1  3. i!0># 

120  a  CC  C 1 3. 20 ) .  SSI C 1 3, 20  )  *  SCC ! 3. SO ) , S5 1 1 3.  20).  OC  < 1 3. 20  >»  0S<  1  3.  20  > 

130  DATA  E33/I3*6-1  10K6.  1  3  *  I  «  1 7  6  K7  <  1  3  *  1 . 7  39  E7  ,  1  3*2. 30317.  13*3.055E7, 
140  4  1  3*7. 229F6j  1  3*1  .*IU!  17.  1 3*8-07  fcl./-»  1  3  2  .  7541.7,  13*3. 656 K7» 

150  ft  1  3*6-366  16,  13+1.6291-7*  13*2.41917.  1 3*3.20617, 1 3*4. 260L7. 

160  *  13*9.5461:6.  13*1  .V63E7.  13*2.76727*  13*3.67027.  1 3*6 •  674E7/ 

170  a  El  1/1  3*1 .2691  £.*  13*1  .9461' 6*  13*1 .97126*  13*1  .9661.6*  13*1.99526* 

160  *  13*2  307E6.  13-2. 43916,  13,2. 467S6.  13*2.5111.6.  13*2.530*6. 

190  ft  13*3  ••  1  £6*  13>3. 27016*  1  3*3. 367E6.  13  +  3- 41cL6.  13*3. 65BF6. 

200  ft  1  3*4>3 0416. 13*4. O^SEG. 13*5-237*6. 13*5.380*6, 13*5- 492E6/ 

210  6  G31/1  3*5.25016. I  3*5. WOES. 1 3*5- 51 9E5, 1 3*6. 55515* 1 3*5- 562E5* 

220  6  13*6 .749E5,  13  +  ^.  1 G2K5*  1 3*7 .2301  5*  1  3*7 .29515.  13*7.345F-5. 

230  t  13*9-1  671.5*  1  3*9. 86 CEb,  13*1*01 3E6*  13  +  1.02626.13*1  .03726* 

260  ft  13*1  .3921.5*  1  3*1 . 67 1  F.6*  1 3*  1  .6+ll  26*  1 3*1  -679 E>»  1 3*  1  •  709EG/ 

250  6  AMU31/65+. 293, G5+»£78, S3*. 256.65*. 232/ 

3C0  DO  10  1  =  1.20  \ 

310  DC  20  0=1*13 
320  30=0-1 

330  TMtTA*RJ*3. 141  593/24!. 

340  CC<.'.  I >»CCSCTMKTA> 

350  SSI  CO. I >«SINtTHETA> 

360  SCt  J.  1  >=  ( cost THF:tA  >  )  **2 
370  SSCJ, l>=tSINCThETA)>*+2 
360  0C  C  J. I >  =  t  CC  S  C  THETA  >  >  *  *-'t 
390  OSCO.  I  )=<SI.\'CThETA>>**4 
400  ANU13C0.  1  >  =  P..\!t!3 1  C  J.  I  ) *E1 1  <  J»  1  J/F33C  J.  I  ) 

500  i:P(.l»I)=l  ./(CC(.J»  I  )  /  E3  3  (  J,  I  >  +  CS<  J»  1  >/El  1  C  J,  I  >♦(  1  ./G31  C  J,  I) 

S10  ft  «ANU3I <0.  1  7/E33C J,  1  >-/'  Mil 3t 0*  I  >/El 1(0.  I > ) *SCt 0. I >*SSC J. I > ) 

600  GPC  J.  1  >=  1  ./  f  1  ./C31  (.).  1  >♦-'!.  *SC<  J,  1  )*SM  J*  1  )*<  (  1  .+A\'U31 1  J.  I  )  )/ 

610  ft  E33(  J.  I  )♦  1 1  .♦A:\U1  3<  1  >  >/fl  1  (0*  I  )  -  1  ./G31  CO,  1  >  >  > 

700  ANUPC J. I >=FPCO. I )*CAKU31 CO. I)/E33C0»X)-SCC0»I)*SSCJ,  I  )* 

710  A  CC  1  .♦AKU31  CO*  I  )  )/E33C0*  I  >+ 1 1  .♦A.VU13C0,  I  )  )/El  1  C  J.  I  )-  1  •  /G3  ICO*  I)  >) 
600  ETACO.  I  )  =  EP C  0*  1  >*CCC  J.  D+SS1  CO.  I  J*C2.*5CC0,  D/E33CU.I  ) 

610  e  -2.*SSC  J.  1 >/l 1 1 C  0.  I >+ CStCO* 1 J-SSCO,  I >>*<AMU31 CO. I J/E33C J* 1 > 

820  ft  /AKUI 3C0. 1 )/El 1 C J, 1 >-l ./G31 CO.  I  >) ) 

900  20  CONTINUE 

910  PAINT.  CEP  CO.  I  >/3 • 815. CFC J.  I  >/l  .40715.  ANUPt  J,  I  )  .  ETA  C  0,  1 ),  0=  1,  13) 

920  10  CON’TI.M'l 
1000  30  STOP; END 
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